OFFSET
0,2
COMMENTS
REFERENCES
Suggested by a posting by Igor G. Korepanov to "Jim's Forum", Jan 10 2007.
FORMULA
a(n)=(a(n-1)*A011557(A001333(n-2))+a(n-2))*A011557(A001333(n-2))+a(n-1). - Reinhard Zumkeller, Feb 02 2007
MATHEMATICA
nxt[{a_, b_}]:={b, FromDigits[Flatten[Join[IntegerDigits[b], IntegerDigits[a], IntegerDigits[ b]]]]}; NestList[nxt, {1, 2}, 7][[All, 1]] (* Harvey P. Dale, Jun 05 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Jan 10 2007
STATUS
approved