7 lines
155 B
Text
7 lines
155 B
Text
hpy: {x@&1={~|/x=1 4}{_+/_sqr 0$'$x}//:x}
|
|
|
|
hpy 1+!100
|
|
1 7 10 13 19 23 28 31 32 44 49 68 70 79 82 86 91 94 97 100
|
|
|
|
8#hpy 1+!100
|
|
1 7 10 13 19 23 28 31
|