proposed
approved
proposed
approved
editing
proposed
Harry J. Smith, <a href="/A062047/b062047.txt">Table of n, a(n) for n=1,...,1000</a>
a(n) = {pprime(n+1) +p prime(n)}*{pprime(n+1) - pprime(n)-2}/4.
a(n) = (prime(n)+e(n) )*( e(n)-1 ), where e(n) = A001223(n) / 2, for n > 1.
Plus@@Range[ #[[1]]+2, #[[2]]-2, 2]&/@Partition[Prime[Range[100]], 2, 1] [From _(* _Harvey P. Dale_, Aug 13 2009] *)
OFFSET changed from 0,4 to 1,4 by Harry J. Smith, Jul 30 2009
approved
editing
More terms from Larry Reeves (larryr(AT)acm.org) and _Jason Earls (zevi_35711(AT)yahoo.com), _, Jun 07 2001
(PARI) { for (n=1, 1000, q=prime(n + 1); p=prime(n); a=(q + p)*(q - p - 2)/4; if (n==1, a=0); write("b062047.txt", n, " ", a) ) } [From _\\ _Harry J. Smith_, Jul 30 2009]
_Amarnath Murthy (amarnath_murthy(AT)yahoo.com), _, Jun 06 2001
Plus@@Range[ #[[1]]+2, #[[2]]-2, 2]&/@Partition[Prime[Range[100]], 2, 1] [From _Harvey P. Dale (hpd1(AT)nyu.edu), _, Aug 13 2009]
(PARI) { for (n=1, 1000, q=prime(n + 1); p=prime(n); a=(q + p)*(q - p - 2)/4; if (n==1, a=0); write("b062047.txt", n, " ", a) ) } [From _Harry J. Smith (hjsmithh(AT)sbcglobal.net), _, Jul 30 2009]
OFFSET changed from 0,4 to 1,4 by _Harry J. Smith (hjsmithh(AT)sbcglobal.net), _, Jul 30 2009
Harry J. Smith, <a href="/A062047/b062047.txt">Table of n, a(n) for n=1,...,1000</a>
nonn,new
nonn
0,1,4
Harry J. Smith, <a href="b062047.txt">Table of n, a(n) for n=1,...,1000</a>
Plus@@Range[ #[[1]]+2, #[[2]]-2, 2]&/@Partition[Prime[Range[100]], 2, 1] [From Harvey P. Dale (hpd1(AT)nyu.edu), Aug 13 2009]
(PARI) { for (n=1, 1000, q=prime(n + 1); p=prime(n); a=(q + p)*(q - p - 2)/4; if (n==1, a=0); write("b062047.txt", n, " ", a) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jul 30 2009]
nonn,new
nonn
OFFSET changed from 0,4 to 1,4 by Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jul 30 2009