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,2

Comments

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

Links

Table of n, a(n) for n=1..15.

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

Adjacent sequences: A085131 A085132 A085133 * A085135 A085136 A085137

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