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

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 62, 664, 3366, 11528, 31030, 70992, 144494, 269296, 468558, 0, 664, 3968, 14832, 42496, 101960, 215424, 413728, 737792, 1240056, 0, 3366, 14832, 45198, 112824, 245790, 484056, 881622, 1508688, 2453814, 0, 11528

Offset

0,12

Comments

a(n) = 0 iff n is a single-digit number or is a power of ten times a single-digit number.

Links

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

Mathematica

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

Crossrefs

Sequence in context: A069473 A249530 A249531 * A290285 A286212 A196413

Adjacent sequences: A069963 A069964 A069965 * A069967 A069968 A069969

Keyword

base,easy,nonn

Author

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

Status

approved