login
A154565
One-half of averages of twin prime pairs of A001318.
1
2, 15, 51, 210, 330, 651, 1365, 1650, 1926, 3480, 5430, 5985, 6501, 11310, 16485, 16590, 21660, 25026, 27270, 28635, 35190, 38001, 39285, 46905, 48690, 58905, 64170, 90651, 109485, 143376, 148995, 151845, 190995, 311676, 316251, 332526
OFFSET
1,1
LINKS
MATHEMATICA
q=3; lst={}; s=0; Do[s+=n/q; If[Floor[s]==s, If[PrimeQ[2*s-1]&&PrimeQ[2*s+1], AppendTo[lst, s]]], {n, 0, 8!}]; lst
CROSSREFS
Sequence in context: A362303 A290631 A116693 * A066562 A073877 A248538
KEYWORD
nonn
AUTHOR
STATUS
approved