OFFSET
1,1
COMMENTS
This list consists of those primes corresponding to new second differences in A036263. There are 97 new second differences introduced up to the 100000th prime.
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..324 (first 97 terms from Edward Bernstein)
EXAMPLE
The new values in A036263 are 1, 0, 2, -2, -4, 4, 10, -10, 8, -8, ... at indices 1, 2, 3, 4, 9, 10, 29, 30, ... and the middle primes of the prime triple starting at these indices are 3, 5, 7, 11, 29, ...
MAPLE
A036263s := proc(maxn)
s := {} ;
for n from 1 to maxn do
s := s union {A036263(n)} ;
end do:
s ;
end proc:
A295973a := proc(n)
if n = 1 then
return 2;
end if;
p := nextprime(procname(n-1)) ;
pidx := numtheory[pi](p) ;
while true do
candD := A036263(pidx) ;
if not candD in A036263s(pidx-1) then
return ithprime(pidx) ;
end if ;
pidx := pidx+1 ;
end do:
end proc:
A295973 := proc(n)
nextprime(A295973a(n)) ;
end proc:
seq(A295973(n), n=1..40) ; # R. J. Mathar, Jan 06 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Edward Bernstein, Nov 30 2017
STATUS
approved