OFFSET
1,1
MATHEMATICA
a[1] = 9; 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, 13}] (* Robert G. Wilson v, Apr 19 2002 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Mar 01 2002
EXTENSIONS
More terms from Sascha Kurz, Mar 27 2002
Edited by N. J. A. Sloane, Apr 19 2007
a(14)-a(15) from Giovanni Resta, Sep 25 2019
STATUS
approved
