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,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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

Cf. A028839, A175396.

Sequence in context: A283320 A086390 A038029 * A020672 A028837 A178241

Adjacent sequences: A197036 A197037 A197038 * A197040 A197041 A197042

Keyword

nonn,base

Author

Michel Lagneau, Oct 08 2011

Status

approved