OFFSET
1,1
MATHEMATICA
e[1] = 11; 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, 12}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Apr 19 2002
STATUS
approved