A292218 The n-th iteration of (k -> k + sum of base-100 digits of k) applied to n.

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

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

Table of n, a(n) for n=1..44.

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

Cf. A286660, A292202.

Sequence in context: A127790 A006730 A131135 * A134401 A036289 A097064

Adjacent sequences: A292215 A292216 A292217 * A292219 A292220 A292221

Keyword

nonn,base

Author

Peter Weiss, Sep 11 2017

Status

approved