OFFSET
1,2
COMMENTS
FORMULA
a(n)=a(n-2)*R(a(n-1)).
EXAMPLE
a(5)=8, a(6)=32, R(32)=23, hence a(7)=8*23=184; R(184)=841, a(8)=32*841=15392, etc.
MATHEMATICA
a[1]=1; a[2]=2; a[n_]:=a[n]=a[n-2]*FromDigits[Reverse[IntegerDigits[a[n-1]]]]; A109213=Table[a[n], {n, 13}]
nxt[{a_, b_}]:={b, a*IntegerReverse[b]}; NestList[nxt, {1, 2}, 15][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 09 2017 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Jun 22 2005
STATUS
approved