OFFSET
1,1
COMMENTS
A superset of A014574. [R. J. Mathar, Mar 03 2009]
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
If d = (P_{n+1} - P_n)/2 is even & d/2 == +/- 1 (mod 6), then P_n + d = (P_{n+1} + P_n)/2 is in the sequence. [Corrected by M. F. Hasler, Nov 29 2013]
MATHEMATICA
a = Table[Prime[n], {n, 2, 200}]; b = {}; Do[d = (a[[n + 1]] - a[[n]])/2; If[ EvenQ[ a[[n]] + d] && (Mod[d, 6] == 5 || Mod[d, 6] == 1), b = Append[b, a[[n]] + d]], {n, 1, 198}]; b
Mean/@Select[Partition[Prime[Range[200]], 2, 1], EvenQ[Mean[#]] && !Divisible[ (#[[2]]-#[[1]])/2, 3]&] (* Harvey P. Dale, Sep 27 2017 *)
PROG
(PARI) q=3; forprime(p=5, 1e3, (s=q+q=p)%4==0 && (s-2*p)%3 && print1(s/2", ")) \\ M. F. Hasler, Nov 29 2013
(PARI) is_A072570(n)=my(p=precprime(n)); nextprime(n)+p==2*n && (n-p)%3 && !bittest(n, 0) \\ M. F. Hasler, Nov 30 2013
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