OFFSET
1,1
COMMENTS
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000
EXAMPLE
6-/+1, 15-/+2,..., 300-/+7 are pairs of consecutive primes.
MATHEMATICA
Select[Mean/@Partition[Prime[Range[2500]], 2, 1], OddQ[Sqrt[8#+1]]&] (* or *) Select[Accumulate[Range[200]], #==(NextPrime[#]+NextPrime[#, -1])/2&] (* Harvey P. Dale, Oct 15 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 14 2007
STATUS
approved
