A152234 Similar to A072921 but starting with 5.

5, 10, 16, 29, 53, 85, 130, 179, 245, 322, 406, 500, 599, 721, 853, 1001, 1151, 1309, 1480, 1664, 1865, 2086, 2323, 2570, 2831, 3106, 3391, 3692, 4013, 4342, 4684, 5048, 5429, 5830, 6247, 6683, 7142, 7615, 8107, 8615, 9143, 9688, 10264, 10853, 11459

Offset: 1

Author

N. J. A. Sloane, Oct 07 2009

Keywords

• nonn
• base
• easy

Links

• Alois P. Heinz, Table of n, a(n) for n = 1..1000

Programs

Maple

b:= proc(n) option remember; local m; m:= a(n); `if`(n=1, 0, b(n-1)); while m>0 do %+ irem(m, 10, 'm') od; % end: a:= proc(n) option remember; `if`(n=1, 5, a(n-1) +b(n-1)) end: seq(a(n), n=1..50); # Alois P. Heinz, Oct 07 2009

Mathematica

a[0] = a[1] = 5; a[n_] := a[n] = 2*a[n-1]-a[n-2]+Total[IntegerDigits[a[n-1]]]; Table[a[n], {n, 1, 45}] (* Jean-François Alcover, Mar 05 2014 *)