OFFSET
1,2
COMMENTS
A variation of A215027.
MAPLE
f:=proc(i) (i+1)*10^(1+floor(evalf(log10(i))))+i; end: # A127423
a:=proc(n) option remember; global f; if n=1 then 1 else f(n-1)-a(n-1); fi; end;
PROG
(PARI) A215028(n, print_all=0)={my(a=1); for(n=1, n-1, print_all & print1(a", "); a=(n+1)*10^#Str(n)+n-a); a} \\ M. F. Hasler, Aug 23 2012
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Aug 04 2012
STATUS
approved