OFFSET
1,5
MATHEMATICA
a[1]=a[2]=a[3]=a[4]=1; R[n_]:=FromDigits[Reverse[IntegerDigits[n]]]; a[n_]:=a[n-1]+R[a[n-2]]+R[a[n-3]]+R[a[n-4]]; Array[a, 32] (* Stefano Spezia, Jun 14 2023 *)
CROSSREFS
KEYWORD
easy,base,nonn
AUTHOR
Felice Russo, Sep 11 2002
EXTENSIONS
Corrected and extended by Michel ten Voorde Jun 13 2003
More terms from Joshua Zucker, May 08 2006
Definition adapted to offset by Georg Fischer, Jun 18 2021
STATUS
approved