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
Examples
8649 is in the sequence because it is a square and the sum of the digits 8+6+4+9=27 is a cube.
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
Select[Range[0,400]^2,IntegerQ[Power[Total[IntegerDigits[#]], (3)^-1]]&] (* Harvey P. Dale, Jan 28 2012 *)
Extensions
Corrected (a(18) inserted) and extended by Harvey P. Dale, Jan 28 2012