A067075 a(n) is the smallest number m such that the sum of the digits of m^3 is equal to n^3.
0, 1, 2, 27, 1192, 341075, 3848163483, 2064403725539899
Offset: 0
Examples
a(3) = 27 as 27^3 = 19683 is the smallest cube whose digit sum = 27 = 3^3.
Programs
-
Mathematica
Do[k = 1; While[Plus @@ IntegerDigits[k^3] != n^3, k++ ]; Print[k], {n, 1, 6}] (* Ryan Propper, Jul 07 2005 *)
-
PARI
a(n) = my(k=0); while (sumdigits(k^3) != n^3, k++); k; \\ Seiichi Manyama, Aug 12 2017
Extensions
Corrected and extended by Ryan Propper, Jul 07 2005
a(0)=0 prepended by Seiichi Manyama, Aug 12 2017
a(7) from Zhining Yang, Jun 20 2024
Comments