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,1

Links

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

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 *)

Crossrefs

Sequence in context: A026059 A115002 A301290 * A357997 A054514 A200940

Adjacent sequences: A152231 A152232 A152233 * A152235 A152236 A152237

Keyword

nonn,base,easy

Author

N. J. A. Sloane, Oct 07 2009

Status

approved