OFFSET
0,2
MAPLE
terms:=10: a:=array(1..terms): a[1]:=1: for n from 1 to terms-1 do K:=ilog10(n+a[n]+1); a[n+1]:=a[n]*(10^K)+n+a[n] end do: print(a); # Michal Paulovic, Sep 24 2023
PROG
(PARI) a(n) = my(t=1); for(n=1, n-1, my(K=logint(n+t+1, 10)); t = t*(10^K)+n+t); t \\ Michal Paulovic, Sep 24 2023
CROSSREFS
KEYWORD
easy,nonn,less
AUTHOR
Ctibor O. Zizka, Mar 22 2008
EXTENSIONS
Offset corrected by R. J. Mathar, Jun 20 2021
Name corrected and terms extended by Michal Paulovic, Sep 24 2023
STATUS
approved