OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
For n = 4 we have twin prime pairs (3,5) (5,7) (11,13) (17,19) and 5 + 7 + 13 + 19 = 44.
MATHEMATICA
lst={}; s=0; Do[p=Prime[n]; If[PrimeQ[p-2], s+=p; AppendTo[lst, s]], {n, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Sep 30 2008 *)
Accumulate[Transpose[Select[Partition[Prime[Range[200]], 2, 1], Last[#]-First[#]==2&]][[2]]] (* Harvey P. Dale, Feb 08 2011 *)
PROG
(PARI) addnexttwin(n)= { s=0; for(x=1, n, if(prime(x+1)-prime(x)==2, s=s+prime(x+1); print1(s", ")) ) }
CROSSREFS
KEYWORD
nonn
AUTHOR
Cino Hilliard, Aug 25 2003
STATUS
approved