OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = (2*A129242(n) + 1)/3. - Robert Israel, Mar 08 2026
EXAMPLE
MAPLE
R:= NULL: count:= 0:
q:= 3: s:= 5:
while count < 100 do
r:= q; q:= s; s:= nextprime(s);
if r + s = 2*q then
p:= (3*q-1)/2;
if isprime(p) and prevprime(p) + nextprime(p) = 2*p then
count:= count+1; R:= R, q;
fi
fi
od:
R; # Robert Israel, Mar 08 2026
PROG
(Magma) [ q: q in PrimesInInterval(3, 2900000) | r+s eq 2*q and IsPrime(p) and PreviousPrime(p)+NextPrime(p) eq 2*p where p is (r+q+s-1) div 2 where r is PreviousPrime(q) where s is NextPrime(q) ];
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, Apr 05 2007
STATUS
approved
