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
Examples
a(16)=38 because 4 + 4 + 8 + 1+6 +2+3 + 2+8 = 38
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
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 *)
Comments