A126249 p*(p+1)*(p+2)/6 where (p,p+2) are twin primes.
10, 35, 286, 969, 4495, 12341, 35990, 62196, 176851, 209934, 437989, 562475, 971970, 1179616, 1293699, 1975354, 2303960, 3280455, 3737581, 5061836, 7023974, 12347930, 13436856, 16435111, 23706021, 30865405, 35999900, 39338069
Offset: 1
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A126248.
Programs
-
Maple
ZL:=[]:for p from 1 to 617 do if (isprime(p) and isprime(p+2) ) then ZL:=[op(ZL),(binomial((p+2),p-1))]; fi; od; print(ZL); # Zerinvary Lajos, Mar 08 2007
-
Mathematica
Times@@# Mean[#]/6&/@Select[Partition[Prime[Range[250]],2,1],#[[2]]- #[[1]] == 2&] (* Harvey P. Dale, Sep 20 2014 *)