A069980 (Sum of digits of n)^6 - (sum of digits of n^6).

0, 0, 54, 711, 4077, 15606, 46629, 117621, 262125, 531423, 0, 36, 684, 4059, 15588, 46629, 117612, 262107, 531423, 999963, 54, 693, 4059, 15579, 46620, 117621, 262098, 531396, 999963, 1771524, 711, 4050, 15588, 46602, 117612, 262098

Offset

0,3

Comments

a(n) = 0 iff n is a power of ten.

Links

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

Mathematica

f[n_] := Plus @@ IntegerDigits[n]^6 - Plus @@ (IntegerDigits[n^6]); Table[ f[n], {n, 0, 100}]

Crossrefs

Sequence in context: A218130 A321635 A090835 * A139178 A288838 A157094

Adjacent sequences: A069977 A069978 A069979 * A069981 A069982 A069983

Keyword

base,easy,nonn

Author

N. J. A. Sloane and Robert G. Wilson v, May 04 2002

Status

approved