A112435 Next term is the sum of the last 10 digits in the sequence, beginning with a(10) = 4.

0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 4, 8, 16, 23, 28, 38, 45, 42, 41, 41, 36, 34, 32, 31, 30, 28, 29, 33, 34, 37, 44, 42, 37, 41, 39, 41, 38, 43, 40, 39, 39, 46, 45, 47, 54, 51, 45, 44, 43, 39, 42, 42, 39, 43, 43, 38, 43, 44, 40, 37, 40, 33, 32, 29, 36, 35, 39, 45, 49, 51, 48, 52, 47

Offset

1,10

Comments

Variation on Angelini's A112395. The sequence cycles at a(16)=38 and the loop has 312 terms. It is exactly the same loop as in A112433 "Next term is the sum of the last 10 digits in the sequence, beginning with a(10) = 2" and the first term of this 4-loop is the first term of that 2-loop . Computed by Gilles Sadowski.

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

a(16)=38 because 4 + 4 + 8 + 1+6 +2+3 + 2+8 = 38

Mathematica

nxt[{t_, a_}]:={Take[Join[t, IntegerDigits[Total[t]]], -10], Total[t]}; Join[ {0, 0, 0, 0, 0, 0, 0, 0, 0}, NestList[nxt, {{0, 0, 0, 0, 0, 0, 0, 0, 0, 4}, 4}, 80][[All, 2]]] (* Harvey P. Dale, Jun 22 2019 *)

Crossrefs

Cf. A112395, A004207, A065075, A001370.

Sequence in context: A244421 A030168 A261212 * A232508 A384083 A028610

Adjacent sequences: A112432 A112433 A112434 * A112436 A112437 A112438

Keyword

base,easy,nonn

Author

Alexandre Wajnberg, Dec 11 2005

Status

approved