A292202 The n-th iteration of A062028 starting with n.

2, 8, 15, 28, 25, 33, 59, 77, 90, 79, 109, 111, 134, 137, 129, 148, 184, 189, 218, 197, 204, 226, 250, 231, 284, 284, 297, 313, 325, 309, 341, 398, 354, 418, 418, 414, 488, 440, 438, 478, 529, 465, 545, 554, 531, 628, 658, 561, 620, 677, 624, 697, 697, 657, 785, 818, 735, 865, 835, 762, 851, 851

Offset: 1

Author

Peter Weiss, Sep 11 2017

Keywords

• nonn
• base
• look

Comments

a(n) == n*2^n (mod 9). This has a period of 18. - Robert Israel, Sep 11 2017

Examples

			n=5: 5+5=10, 10+1+0=11, 11+1+1=13, 13+1+3=17, 17+1+7=25. After 5 iterations you get 25, so a(5)=25.
		

Links

• Robert Israel, Table of n, a(n) for n = 1..10000
• Robert Israel, Plot of a(n)/n for n = 1 .. 4000

Crossrefs

Cf. A007618, A006507, A062028, A016096.

Programs

Maple

A062028:= proc(t) option remember; t + convert(convert(t,base,10),`+`):end proc:
seq((A062028@@n)(n), n=1..100); # Robert Israel, Sep 11 2017

Mathematica

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

PARI

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