login
A351387
Primes p such that if q is the next prime, (p+q)/5+5 is prime.
1
13, 29, 43, 59, 103, 113, 163, 167, 193, 239, 257, 269, 313, 401, 419, 463, 509, 557, 569, 587, 613, 643, 659, 677, 761, 773, 853, 863, 883, 953, 977, 1093, 1129, 1213, 1289, 1483, 1499, 1583, 1619, 1693, 1709, 1783, 1907, 2083, 2129, 2203, 2309, 2339, 2399, 2423, 2531, 2579, 2633, 2729, 2741
OFFSET
1,1
LINKS
EXAMPLE
a(3) = 43 is a term because 47 is the next prime and (43+47)/5+5 = 23 is prime.
MAPLE
N:= 3000: # for terms <= N
Primes:= select(isprime, [2, seq(i, i=3..nextprime(N), 2)]):
nP:= nops(Primes):
L:=(Primes[1..nP-1]+Primes[2..nP])/5 +~ 5:
Primes[select(i -> L[i]::integer and isprime(L[i]), [$1..nP-1])];
CROSSREFS
Sequence in context: A309356 A322551 A228069 * A044074 A044455 A082285
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Mar 20 2022
STATUS
approved