OFFSET
1,2
COMMENTS
FORMULA
a(n)=a(n-1)*R(a(n-2)).
MATHEMATICA
a[1]=1; a[2]=2; a[n_]:=a[n]=a[n-1]*FromDigits[Reverse[IntegerDigits[a[n-2]]]]; A109214=Table[a[n], {n, 13}]
Transpose[NestList[{Last[#], Last[#]FromDigits[Reverse[ IntegerDigits[ First[ #]]]]}&, {1, 2}, 13]][[1]] (* Harvey P. Dale, Nov 14 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Jun 22 2005
EXTENSIONS
One more term (a(14)) from Harvey P. Dale, Nov 14 2011
STATUS
approved