OFFSET
1,1
COMMENTS
Primes p such that 3*p-2, 2*p-3, (3*p+1)/2 and (2*p-1)/3 are all prime.
All terms == 11 (mod 12).
LINKS
Robert Israel, Table of n, a(n) for n = 1..4000
EXAMPLE
a(3) = 1091 is in the sequence because 3*1091-2=3271 and 2*1091-3=2179 are in A338410.
MAPLE
filter:= proc(p) isprime(p) and isprime(3*p-2) and isprime(2*p-3) and isprime((3*p+1)/2) and isprime((2*p-1)/3) end proc:
select(filter, [seq(i, i=11 .. 10^7, 12)]);
MATHEMATICA
Select[Prime[Range[150000]], AllTrue[{3#-2, 2#-3, (2#-1)/3, (3#+1)/2}, PrimeQ]&] (* Harvey P. Dale, May 20 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Oct 25 2020
STATUS
approved