A152231 - OEIS

%I #8 Jan 09 2015 19:25:53

%S 2,4,10,17,32,52,79,122,170,226,292,371,461,562,676,809,959,1132,1312,

%T 1499,1709,1936,2182,2441,2711,2992,3295,3617,3956,4318,4696,5099,

%U 5525,5968,6439,6932,7445,7978,8542,9125,9725,10348,10987,11651,12329,13024

%N Similar to A072921 but starting with 2.

%H Alois P. Heinz, <a href="/A152231/b152231.txt">Table of n, a(n) for n = 1..1000</a>

%p 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, 2, a(n-1) +b(n-1)) end: seq(a(n), n=1..50); # _Alois P. Heinz_, Oct 07 2009

%K nonn,base,easy

%O 1,1

%A _N. J. A. Sloane_, Oct 07 2009