A069978 (Sum of digits of n)^4 - (sum of digits of n^4).

0, 0, 9, 72, 243, 612, 1278, 2394, 4077, 6543, 0, 0, 63, 234, 603, 1278, 2376, 4077, 6534, 9990, 9, 54, 234, 594, 1269, 2376, 4059, 6543, 9972, 14616, 72, 234, 594, 1269, 2376, 4077, 6525, 9972, 14616, 20718, 243, 594, 1269, 2376, 4059, 6543, 9963

Offset

0,3

Comments

a(n) = 0 for n's: 1, 10, 11, 100, 101, 110, 1000, ....

Links

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

Mathematica

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

Crossrefs

Sequence in context: A044196 A064201 A244728 * A070823 A073988 A005778

Adjacent sequences: A069975 A069976 A069977 * A069979 A069980 A069981

Keyword

base,easy,nonn

Author

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

Status

approved