login
A172188
Partial sums of primes of the form 3*k-1.
2
2, 7, 18, 35, 58, 87, 128, 175, 228, 287, 358, 441, 530, 631, 738, 851, 982, 1119, 1268, 1435, 1608, 1787, 1978, 2175, 2402, 2635, 2874, 3125, 3382, 3645, 3914, 4195, 4488, 4799, 5116, 5463, 5816, 6175, 6558, 6947, 7348, 7767, 8198, 8641, 9090, 9551, 10018
OFFSET
1,1
EXAMPLE
a(1)=3*1-1=2, a(2)=2+3*2-1=7.
MAPLE
Contribution from R. J. Mathar, Apr 24 2010: (Start)
A003627 := proc(n) if n <= 2 then op(n, [2, 5]) ; else for a from procname(n-1)+2 by 2 do if isprime(a) and (a mod 3) =2 then return a ; end if; end do: end if; end proc:
A172188 := proc(n) add( A003627(i), i=1..n) ; end proc: seq(A172188(n), n=1..80) ; (End)
MATHEMATICA
Accumulate[Select[Prime[Range[100]], IntegerQ[(#+1)/3]&]] (* Harvey P. Dale, Apr 04 2011 *)
CROSSREFS
Cf. A038361.
Sequence in context: A136583 A307684 A141631 * A077131 A342397 A212685
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jan 29 2010, Feb 01 2010
EXTENSIONS
Entries checked by R. J. Mathar, Apr 24 2010
STATUS
approved