OFFSET
1,3
LINKS
N. J. A. Sloane, Table of n, a(n) for n = 1..20000 (First 1000 terms from Harvey P. Dale)
EXAMPLE
135 = 78 + 57, since the comma in 35,78 splits the number 57.
MAPLE
# to compute the first M terms, from N. J. A. Sloane, Nov 20 2023
Ldigit:=proc(n) local v; v:=convert(n, base, 10); v[-1]; end;
M:=100;
s:=[0, 1]; i:=0; j:=1;
for m from 2 to M do
k := j + 10*(i mod 10) + Ldigit(j); s:=[op(s), k]; i:=j; j:=k; od:
s;
MATHEMATICA
a[1]=0; a[2]=1;
a[n_]:=a[n]=a[n-1]+10 Mod[a[n-2], 10]+IntegerDigits[a[n-1]][[1]];
Table[a[k], {k, 100}]
nxt[{a_, b_}]:={b, b+10IntegerDigits[a][[-1]]+First[IntegerDigits[b]]}; NestList[ nxt, {0, 1}, 50][[All, 1]] (* Harvey P. Dale, Jul 01 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Oct 17 2009, based on a posting to the Sequence Fans Mailing List by Eric Angelini, Oct 15 2009
EXTENSIONS
Corrected and extended with Mma code by Farideh Firoozbakht, Oct 15 2009
STATUS
approved