OFFSET
1,2
COMMENTS
No more terms < 10^100; probably no more terms. - David Wasserman, Feb 22 2005
EXAMPLE
252 = 2^2*3^2*7.
MATHEMATICA
Select[Range[66000], PalindromeQ[#]&&FactorInteger[#][[-1, 1]]<10&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 07 2018 *)
PROG
(PARI) isok(n) = if (n==1, return(1)); my(d=digits(n)); (Vecrev(d)==d) && (vecmax(factor(n, 7)[, 1]) < 8); \\ Michel Marcus, Dec 08 2021
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jul 06 2003
EXTENSIONS
2 more terms from David Wasserman, Feb 22 2005
Name edited by Michel Marcus, Dec 07 2021
STATUS
approved