4 lines
128 B
Racket
4 lines
128 B
Racket
#lang racket
|
|
(require math/number-theory)
|
|
(define attractive? (compose1 prime? prime-omega))
|
|
(filter attractive? (range 1 121))
|