A065124 a(n) = (sum of digits of a(n-2)) + a(n-1); a(0) = 0 and a(1) = 1.

0, 1, 1, 2, 3, 5, 8, 13, 21, 25, 28, 35, 45, 53, 62, 70, 78, 85, 100, 113, 114, 119, 125, 136, 144, 154, 163, 173, 183, 194, 206, 220, 228, 232, 244, 251, 261, 269, 278, 295, 312, 328, 334, 347, 357, 371, 386, 397, 414, 433, 442, 452, 462, 473, 485, 499, 516

Offset: 0

Author

Robert G. Wilson v, Nov 13 2001

Keywords

• base
• easy
• nonn

Links

• Harry J. Smith, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A007612, A007953, A065076.

Cf. A010888, A030132.

Programs

Mathematica

a[0] = 0; a[1] = 1; a[n_] := a[n] = Apply[ Plus, IntegerDigits[ a[n - 2] ]] + a[n - 1]; Table[ a[n], {n, 0, 100} ]

PARI

{ for (n=0, 1000, if (n>1, a=sumdigits(a2) + a1; a2=a1; a1=a, if (n, a=a1=1, a=a2=0)); write("b065124.txt", n, " ", a) ) } \\ Harry J. Smith, Oct 10 2009

Formula

A010888(a(n)) = A030132(n). - Davide Rotondo, Dec 02 2024