7 lines
202 B
Text
7 lines
202 B
Text
fun prime(a) type integer->integer
|
|
a where count{{a.factor}}==2
|
|
fun pernisc(a) type integer->integer
|
|
a where sum{{a.radix:2 .char.integer}}.integer.prime
|
|
|
|
1..36.pernisc
|
|
888888877..888888888.pernisc
|