OFFSET
1,2
COMMENTS
Members that have an even number of digits are rare: 7606, 8376, 9157, ..., . - Robert G. Wilson v
EXAMPLE
3305733058 = 45454*72727.
MATHEMATICA
palQ[n_] := Block[{id = IntegerDigits[n]}, id == Reverse[id]]; t = {}; Do[p = 10^Floor[Log[10, n] + 1]n + n + 1; If[ MemberQ[ Union[Times @@@ Tuples[ Select[ Most@ Rest@ Divisors@p, palQ[ # ] &], 2]], p], AppendTo[t, n]], {n, 1504947}]; t (* Robert G. Wilson v, Jan 31 2006 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Giovanni Resta, Jan 31 2006
STATUS
approved