RosettaCodeData/Task/Pernicious-numbers/J/pernicious-numbers-2.j
2023-07-01 13:44:08 -04:00

6 lines
231 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.@(+*)@-~
(#~ ispernicious) 888888877 thru 888888888
888888877 888888878 888888880 888888883 888888885 888888886