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,1

Comments

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

Links

Robert Israel, Table of n, a(n) for n = 1..10000

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

Example

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.

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 *)

Prog

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

Crossrefs

Cf. A007618, A006507, A062028, A016096.

Sequence in context: A318242 A318272 A244476 * A189952 A077598 A095298

Adjacent sequences: A292199 A292200 A292201 * A292203 A292204 A292205

Keyword

nonn,base,look

Author

Peter Weiss, Sep 11 2017

Status

approved