OFFSET
1,1
COMMENTS
The interprimes (A024675) are those integers that lie at the midpoint between consecutive odd primes.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
Eric Weisstein's World of Mathematics, Interprime
MATHEMATICA
a = Table[ Prime[n], {n, 2, 200}]; b = {}; Do[d = (a[[n + 1]] - a[[n]])/2; If[ OddQ[ a[[n]] + d], b = Append[b, a[[n]] + d]], {n, 1, 198}]; b
Select[Plus @@@ Partition[Table[Prime[n], {n, 2, 100}], 2, 1]/2, OddQ]
Select[Mean/@Partition[Prime[Range[2, 200]], 2, 1], OddQ] (* Harvey P. Dale, Jan 22 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Marco Matosic, Jun 24 2002
EXTENSIONS
Edited by N. J. A. Sloane and Robert G. Wilson v, Jun 27 2002
STATUS
approved