A179654 Sum of the numbers already removed (including the target number) in the first jump of a Sieve of Eratosthenes table.

4, 10, 33, 53, 138, 201, 340, 431, 624, 1024, 1116, 1557, 1989, 2202, 2702, 3357, 4098, 4520, 5484, 6109, 6615, 7608, 8502, 9802, 11391, 12286, 13002, 14160, 14918, 16142, 19896, 21320, 23069, 23760, 27377, 28429, 30430, 33159, 34977, 37876, 40177

Offset

0,1

Comments

2(4) = 4, 3(6) = 10(4,6), 5(10) = 33(6,8,9,10), 7(14) = 53(8,9,10,12,14), 11(22) = 138(12,14,15,16,18,20,21,22).

Links

Table of n, a(n) for n=0..40.

Mathematica

fQ[n_, p_] := Block[{q = First /@ FactorInteger@n}, Union[p >= # & /@ q] == {True}]; f[n_] := Block[{p = Prime@n}, Plus @@ Select[ Range[p + 1, 2 p], fQ[ #, p] &]]; Array[f, 41] (* Robert G. Wilson v, Aug 23 2010 *)

Crossrefs

Cf. A000040 and A179628.

Sequence in context: A110145 A185631 A174520 * A162427 A165730 A052366

Adjacent sequences: A179651 A179652 A179653 * A179655 A179656 A179657

Keyword

easy,nonn

Author

Odimar Fabeny, Jul 22 2010

Extensions

a(6)-a(41) from Robert G. Wilson v, Aug 23 2010

Status

approved