RosettaCodeData/Task/Happy-numbers/Maple/happy-numbers-5.maple
2023-07-01 13:44:08 -04:00

3 lines
119 B
Text

> H, S := selectremove( Happy?, [seq]( 1 .. N ) ):
> nops( H ), nops( S );
143071, 856929