A117685 Squares for which the sum of the digits are cubes.

0, 1, 100, 3969, 7569, 8649, 10000, 12996, 13689, 15876, 19881, 33489, 34596, 36864, 42849, 45369, 46656, 47961, 49284, 51984, 54756, 56169, 59049, 66564, 71289, 74529, 76176, 77841, 79524, 82944, 84681, 86436, 88209, 91809, 93636, 95481, 97344, 99225

Offset

0,3

Links

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

Example

8649 is in the sequence because it is a square and the sum of the digits 8+6+4+9=27 is a cube.

Mathematica

Select[Range[0, 400]^2, IntegerQ[Power[Total[IntegerDigits[#]], (3)^-1]]&] (* Harvey P. Dale, Jan 28 2012 *)

Crossrefs

Cf. A000290, A000578.

Sequence in context: A112889 A118490 A146310 * A091134 A017816 A250699

Adjacent sequences: A117682 A117683 A117684 * A117686 A117687 A117688

Keyword

nonn,base

Author

Luc Stevens (lms022(AT)yahoo.com), Apr 12 2006

Extensions

Corrected (a(18) inserted) and extended by Harvey P. Dale, Jan 28 2012

Status

approved