login
A197039
Numbers such that sum of the cube of decimal digits is a perfect square.
4
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,2
LINKS
EXAMPLE
261 is in the sequence because 2^3+6^3+1^3 = 15^2.
MATHEMATICA
Select[Range[1100], IntegerQ[Sqrt[Apply[Plus, IntegerDigits[#]^3]]]&]
CROSSREFS
Sequence in context: A283320 A086390 A038029 * A020672 A028837 A178241
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Oct 08 2011
STATUS
approved