OFFSET
1,1
COMMENTS
Old name was: Palindromes which are nontrivial multiples of 2 distinct palindromes.
Repetitions are allowed. 12 appears twice because it is both 2*6 and 3*4.
EXAMPLE
8 is in the sequence because 8=2*4.
MATHEMATICA
Module[{nn=250, pals}, pals=Select[Range[2, nn], PalindromeQ]; Select[Sort[ Times@@#&/@ Subsets[pals, {2}]], #<=nn&]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 27 2018 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Jun 07 2002
EXTENSIONS
Corrected and extended by Sascha Kurz, Jan 02 2003
Edited (with corrected definition) by N. J. A. Sloane, May 27 2018
STATUS
approved