OFFSET
1,1
COMMENTS
Or, primes which are at 1/3 of the distance between the previous and next prime. See A267291 for primes which are at 2/3 between their neighbors. - M. F. Hasler, Jan 12 2016
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1)=3 (=(2*2+5)/3), a(2)=7 (=(2*5+11)/3), a(3)=13 (=(2*11+17)/3).
MAPLE
Primes:= select(isprime, [2, seq(i, i=3..10^4, 2)]):
Gaps:= Primes[2..-1]-Primes[1..-2]:
Primes[select(t -> 2*Gaps[t-1] = Gaps[t], [$2..nops(Gaps)])]; # Robert Israel, Jan 03 2016
MATHEMATICA
Table[(2 Prime[k - 1] + Prime[k + 1])/3, {k, 2, 360}] /. {_Rational -> Nothing, n_ /; CompositeQ@ n -> Nothing} (* Michael De Vlieger, Jan 09 2016 *)
PROG
(PARI) for(k=2, 1000, q=2*prime(k-1)+prime(k+1); if(q%3==0 && isprime(q\3), print1(q\3, ", "))) \\ Colin Barker, Jun 27 2014
(PARI) A194581(n, show=0, o=2, g=0)={forprime(p=o+1, , g*2==(g=-o+o=p)||next; show&&print1(p-g", "); n--||return(p-g))} \\ 2nd & 3rd optional args allow printing the whole list and using another starting value. - M. F. Hasler, Jan 12 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Aug 29 2011
EXTENSIONS
Entries corrected by R. J. Mathar, Sep 30 2011
STATUS
approved