OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..19
MATHEMATICA
a[1] = 3; a[n_] := a[n] = Block[{k = 2}, While[k*a[n - 1] != ToExpression[ StringReverse[ ToString[k*a[n - 1]]]], k++ ]; k*a[n - 1]]; Table[a[n], {n, 1, 16}]
nxt[n_]:=Module[{k=2}, While[k*n!=IntegerReverse[k*n], k++]; k*n]; NestList[ nxt, 3, 15] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 14 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Mar 01 2002
EXTENSIONS
More terms from David W. Wilson; edited by Patrick De Geest, Mar 30 2002
a(16) from Giovanni Resta, Sep 22 2019
STATUS
approved