A069964 a(n) = (sum of digits of n)^4 - (sum of digits^4 of n).

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 14, 64, 174, 368, 670, 1104, 1694, 2464, 3438, 0, 64, 224, 528, 1024, 1760, 2784, 4144, 5888, 8064, 0, 174, 528, 1134, 2064, 3390, 5184, 7518, 10464, 14094, 0, 368, 1024, 2064, 3584, 5680, 8448, 11984, 16384, 21744, 0, 670

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..51.

Mathematica

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

Crossrefs

Sequence in context: A275179 A050396 A344597 * A275127 A074354 A212743

Adjacent sequences: A069961 A069962 A069963 * A069965 A069966 A069967

Keyword

nonn,base,easy

Author

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

Status

approved