OFFSET
0,3
COMMENTS
Period [153,109,120,55] after 6 terms. - Georg Fischer, Aug 22 2020
MAPLE
P:=proc(n)local a0, a1, i, k, w, x; a0:=0; a1:=1; print(a0); print(a1); for i from 1 by 1 to n do w:=0; k:=a0+a1; while k>0 do w:=w+k-(trunc(k/10)*10); k:=trunc(k/10); od; x:=0; k:=a1; while k>0 do x:=x+k-(trunc(k/10)*10); k:=trunc(k/10); od; a0:=a1; a1:=w+x+w*x; print(a1); od; end: P(100);
MATHEMATICA
PadRight[{0, 1, 3, 19, 54}, 100, {153, 109, 120, 55}] (* Harvey P. Dale, Aug 03 2023 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Paolo P. Lava and Giorgio Balzarotti, Jan 30 2008
STATUS
approved