|
|
A069973
|
|
(Sum of digits of n)^3 - (sum of digits of n^3).
|
|
0
|
|
|
0, 0, 0, 18, 54, 117, 207, 333, 504, 711, 0, 0, 9, 45, 108, 198, 324, 495, 711, 972, 0, 9, 45, 108, 198, 324, 486, 702, 981, 1305, 18, 36, 99, 189, 324, 486, 702, 981, 1305, 1701, 54, 99, 189, 315, 486, 711, 972, 1314, 1710, 2169, 117, 198, 324, 477, 702, 972
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
COMMENTS
|
a(n) = 0 for n's: 1, 2, 10, 11, 20, 100, 101, 110, 111, 200, 1000, ....
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_] := Plus @@ IntegerDigits[n]^3 - Plus @@ (IntegerDigits[n^3]); Table[ f[n], {n, 0, 100}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|