A109574 Chen primes p such that p is palindromic.

2, 3, 5, 7, 11, 101, 131, 181, 191, 353, 787, 797, 919, 10301, 10601, 11411, 12721, 12821, 13331, 13931, 14741, 15551, 16061, 16361, 16561, 16661, 17471, 19991, 31013, 35753, 36263, 38783, 71317, 72227, 73037, 73237, 73637, 74047, 74747

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..1000

Mathematica

chenQ[n_] := PrimeQ[n] && PrimeOmega[n + 2] < 3; Select[Range[75000], chenQ[#] && PalindromeQ[#] &] (* Amiram Eldar, Oct 19 2021 *)

Prog

(PARI) isok(p) = my(d=digits(p)); isprime(p) && (bigomega(p+2) <= 2) && (d==Vecrev(d)); \\ Michel Marcus, Oct 19 2021

Crossrefs

Intersection of A002113 and A109611.

Sequence in context: A157868 A222116 A229107 * A084837 A062352 A033938

Adjacent sequences: A109571 A109572 A109573 * A109575 A109576 A109577

Keyword

base,easy,nonn

Author

Jason Earls, Aug 30 2005

Status

approved