|
| |
|
|
A069958
|
|
(Sum of digits of n)^3 - (sum of digits^3 of n).
|
|
0
| |
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 18, 36, 60, 90, 126, 168, 216, 270, 0, 18, 48, 90, 144, 210, 288, 378, 480, 594, 0, 36, 90, 162, 252, 360, 486, 630, 792, 972, 0, 60, 144, 252, 384, 540, 720, 924, 1152, 1404, 0, 90, 210, 360, 540, 750, 990, 1260, 1560, 1890, 0
(list; graph; refs; listen; history; internal format)
|
|
|
|
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.
|
|
|
MATHEMATICA
| f[n_] := Plus @@ IntegerDigits[n]^3 - Plus @@ (IntegerDigits[n]^3); Table[ f[n], {n, 0, 100}]
|
|
|
CROSSREFS
| Sequence in context: A111147 A172522 A152539 * A028896 A034857 A116367
Adjacent sequences: A069955 A069956 A069957 * A069959 A069960 A069961
|
|
|
KEYWORD
| nonn,base,easy
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), May 04 2002
|
| |
|
|
