OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
MATHEMATICA
palQ[n_] := Reverse[x = IntegerDigits[n]] == x; t1 = Rest[Select[Range[1670], palQ[#] &]]; Intersection[t1, Union[Flatten[Table[i*j, {i, t1}, {j, t1}]]]] (* Jayanta Basu, Jun 15 2013 *)
CROSSREFS
KEYWORD
base,nonn,easy
AUTHOR
Amarnath Murthy, Jun 07 2002
EXTENSIONS
Corrected and extended by Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 19 2003
STATUS
approved
