A085134 Palindromes in A002473, that is, palindromes with the largest prime divisor < 10.

1, 2, 3, 4, 5, 6, 7, 8, 9, 252, 343, 525, 686, 48384, 65856

Offset: 1

Author

Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jul 06 2003

Keywords

• base
• nonn

Comments

No more terms < 10^100; probably no more terms. - David Wasserman, Feb 22 2005

Examples

			252 = 2^2*3^2*7.
		

Crossrefs

Intersection of A002113 and A002473.

Programs

Mathematica

Select[Range[66000],PalindromeQ[#]&&FactorInteger[#][[-1,1]]<10&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 07 2018 *)

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

Extensions

2 more terms from David Wasserman, Feb 22 2005

Name edited by Michel Marcus, Dec 07 2021