OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
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
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Mar 20 2022
STATUS
approved