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

Author

Peter Weiss, Sep 11 2017

Keywords

• nonn
• base

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

Examples

			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.
		

Crossrefs

Cf. A286660, A292202.

Programs

Mathematica

Table[Nest[# + Total@ IntegerDigits[#, 100] &, n, n], {n, 44}] (* Michael De Vlieger, Sep 11 2017 *)

PARI

a(n) = my(x=n); for (k=1, n, x += vecsum(digits(x, 100))); x; \\ Michel Marcus, Sep 12 2017