A136309 a(n) = a(n-1) * 10^K + n + a(n-1); a(0) = 1; K = floor(log_10(n + a(n-1) + 1)).

1, 3, 8, 91, 1005, 1006010, 1006011006016, 1006011006017006011006023, 1006011006017006011006024006011006017006011006031, 1006011006017006011006024006011006017006011006032006011006017006011006024006011006017006011006040

Offset

0,2

Links

Table of n, a(n) for n=0..9.

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

Sequence in context: A367273 A070901 A079657 * A266671 A069703 A114737

Adjacent sequences: A136306 A136307 A136308 * A136310 A136311 A136312

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