A069263 (Sum of digits of n)^3 = sum of digits of n^3.

1, 2, 10, 11, 20, 100, 101, 110, 111, 200, 1000, 1001, 1010, 1011, 1100, 1101, 1110, 2000, 10000, 10001, 10010, 10011, 10100, 10101, 10110, 11000, 11001, 11010, 11011, 11100, 20000, 100000

Offset

1,2

Links

David A. Corneth, Table of n, a(n) for n = 1..12456 (terms < 10^20)

Example

Let s(n) = sum of digits of n. Then s(101)^3 = 8 and s(101^3) = s(1030301) = 8, so 101 belongs to the sequence.

Mathematica

f[n_] := Apply[Plus, IntegerDigits[n]]; Select[Range[10^5], f[ #^3] == f[ # ]^3 &]

Prog

(PARI) is(n)=sumdigits(n^3)==sumdigits(n)^3 \\ Charles R Greathouse IV, Dec 19 2016

Crossrefs

Cf. A061909.

Sequence in context: A231501 A051373 A131096 * A356520 A174569 A179884

Adjacent sequences: A069260 A069261 A069262 * A069264 A069265 A069266

Keyword

base,nonn

Author

Joseph L. Pe, Apr 19 2002

Status

approved