|
|
A292218
|
|
The n-th iteration of (k -> k + sum of base-100 digits of k) applied to n.
|
|
0
|
|
|
2, 8, 24, 64, 160, 285, 203, 266, 450, 538, 550, 642, 566, 488, 678, 958, 1120, 945, 686, 1241, 1032, 1144, 1339, 1671, 1229, 1499, 1377, 1492, 1945, 1515, 1745, 2108, 1650, 2326, 2110, 2106, 2558, 2105, 2049, 2548, 2590, 2247, 2786, 2750
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Main diagonal of square array A(n, k), where A(n, k) gives the result of k applications of the map x -> x + sum of base-100 digits of x, starting at n. - Felix Fröhlich, Sep 12 2017
|
|
LINKS
|
|
|
EXAMPLE
|
n=6: 6+6=12, 12+12=24, 24+24=48, 48+48=96, 96+96=192, 192+92+(0)1=285. After 6 iterations you get 285, so a(6)=285.
|
|
MATHEMATICA
|
Table[Nest[# + Total@ IntegerDigits[#, 100] &, n, n], {n, 44}] (* Michael De Vlieger, Sep 11 2017 *)
|
|
PROG
|
(PARI) a(n) = my(x=n); for (k=1, n, x += vecsum(digits(x, 100))); x; \\ Michel Marcus, Sep 12 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|