RosettaCodeData/Task/Happy-numbers/Maple/happy-numbers-5.maple
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

3 lines
119 B
Text

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