A109574 - OEIS

%I #10 Oct 19 2021 21:32:40

%S 2,3,5,7,11,101,131,181,191,353,787,797,919,10301,10601,11411,12721,

%T 12821,13331,13931,14741,15551,16061,16361,16561,16661,17471,19991,

%U 31013,35753,36263,38783,71317,72227,73037,73237,73637,74047,74747

%N Chen primes p such that p is palindromic.

%H Amiram Eldar, <a href="/A109574/b109574.txt">Table of n, a(n) for n = 1..1000</a>

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

%o (PARI) isok(p) = my(d=digits(p)); isprime(p) && (bigomega(p+2) <= 2) && (d==Vecrev(d)); \\ _Michel Marcus_, Oct 19 2021

%Y Intersection of A002113 and A109611.

%K base,easy,nonn

%O 1,1

%A _Jason Earls_, Aug 30 2005