login
A085134
Palindromes in A002473, that is, palindromes with the largest prime divisor < 10.
0
1, 2, 3, 4, 5, 6, 7, 8, 9, 252, 343, 525, 686, 48384, 65856
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
Intersection of A002113 and A002473.
Sequence in context: A342952 A029966 A219324 * A229761 A004882 A306853
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