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

Offset

0,3

Comments

If n = 6*k, a(n) <= A002283(n^3/18). For example, a(6) = 3848163483 <= A002283(6^3/18) = 999999999999. - Seiichi Manyama, Aug 12 2017

a(n) >= ceiling(A051885(n^3)^(1/3)). For example a(7) >= ceiling(A051885(7^3)^(1/3)) = ceiling((2*10^38-1)^(1/3)) = 5848035476426 - David A. Corneth, Aug 23 2018

Links

Table of n, a(n) for n=0..6.

Example

a(3) = 27 as 27^3 = 19683 is the smallest cube whose digit sum = 27 = 3^3.

Mathematica

Do[k = 1; While[Plus @@ IntegerDigits[k^3] != n^3, k++ ]; Print[k], {n, 1, 6}] (* Ryan Propper, Jul 07 2005 *)

Prog

(PARI) a(n) = my(k=0); while (sumdigits(k^3) != n^3, k++); k; \\ Seiichi Manyama, Aug 12 2017

Crossrefs

Cf. A051885, A061912, A067074. Subsequence of A067177.

Sequence in context: A078102 A221534 A221535 * A015217 A320417 A113094

Adjacent sequences: A067072 A067073 A067074 * A067076 A067077 A067078

Keyword

nonn,base,more

Author

Amarnath Murthy, Jan 05 2002

Extensions

Corrected and extended by Ryan Propper, Jul 07 2005

a(0)=0 prepended by Seiichi Manyama, Aug 12 2017

Status

approved