OFFSET
1,2
COMMENTS
Complement of A078337.
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
MATHEMATICA
palQ[n_] := Reverse[x = IntegerDigits[n]] == x; t1 = Rest[Select[Range[900], palQ[#] &]]; Join[{1}, Complement[t1, Union[Flatten[Table[i*j, {i, t1}, {j, t1}]]]]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jayanta Basu, Jun 16 2013
STATUS
approved