RosettaCodeData/Task/Pernicious-numbers/J/pernicious-numbers-2.j
2016-12-05 22:15:40 +01:00

6 lines
241 B
Text

25{.I.ispernicious i.100
3 5 6 7 9 10 11 12 13 14 17 18 19 20 21 22 24 25 26 28 31 33 34 35 36
thru=: <. + i.@(+*)@-~
888888877 + I. ispernicious 888888877 thru 888888888
888888877 888888878 888888880 888888883 888888885 888888886