RosettaCodeData/Task/Happy-numbers/Maple/happy-numbers-5.maple

4 lines
119 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
> H, S := selectremove( Happy?, [seq]( 1 .. N ) ):
> nops( H ), nops( S );
143071, 856929