OFFSET
1,1
EXAMPLE
If n=3, then (p(2*3)-p(3))/2*2=(13-5)/4=2=a(1).
If n=4, then (p(2*4)-p(4))/2*2=(19-7)/4=3=a(2).
If n=12, then (p(2*12)-p(12))/2*2=(39-37)/4=13=a(3).
If n=23, then (p(2*23)-p(23))/2*2=(199-83)/4=29=a(4).
If n=27, then (p(2*27)-p(27))/2*2=(251-103)/4=37=a(5), etc.
MATHEMATICA
nmax = 48; lastSeq = {}; While[seq = Select[Table[(Prime[2*n] - Prime[n])/4 , {n, 1, nmax^2}], PrimeQ][[1 ;; nmax]]; seq != lastSeq, lastSeq = seq; m += m]; seq (* Jean-François Alcover, Oct 03 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Sep 18 2008
EXTENSIONS
59 inserted, 401 removed, 647 removed and extended by R. J. Mathar, Oct 04 2008
STATUS
approved