OFFSET
1,1
MATHEMATICA
e[1] = 9; e[n_] := e[n] = Block[{k = 2}, While[k*e[n - 1] != ToExpression[ StringReverse[ ToString[k*e[n - 1]]]], k++ ]; k*e[n - 1]]; Table[e[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