A197039 Numbers such that sum of the cube of decimal digits is a perfect square.
1, 4, 9, 10, 12, 21, 22, 40, 48, 84, 88, 90, 100, 102, 120, 123, 126, 132, 162, 168, 186, 201, 202, 210, 213, 216, 220, 231, 261, 312, 321, 333, 400, 408, 480, 612, 618, 621, 681, 804, 808, 816, 840, 861, 880, 900, 1000, 1002, 1020, 1023, 1026, 1032, 1062
Offset: 1
Examples
261 is in the sequence because 2^3+6^3+1^3 = 15^2.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range[1100],IntegerQ[Sqrt[Apply[Plus,IntegerDigits[#]^3]]]&]