login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A292202 The n-th iteration of A062028 starting with n. 2
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 (list; graph; refs; listen; history; text; internal format)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 25 19:13 EDT 2019. Contains 323576 sequences. (Running on oeis4.)