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

Author

Odimar Fabeny, Jul 22 2010

Keywords

• easy
• nonn

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).

Crossrefs

Cf. A000040 and A179628.

Programs

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 *)

Extensions

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