%I #8 Jan 09 2015 14:54:08
%S 3,6,15,30,48,78,123,174,237,312,393,489,606,735,879,1047,1227,1419,
%T 1626,1848,2091,2346,2616,2901,3198,3516,3849,4206,4575,4965,5379,
%U 5817,6276,6756,7260,7779,8328,8898,9501,10119,10749,11400,12057,12729,13422
%N Similar to A072921 but starting with 3.
%H Alois P. Heinz, <a href="/A152232/b152232.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, 3, 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
|