login
A179654
Sum of the numbers already removed (including the target number) in the first jump of a Sieve of Eratosthenes table.
0
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).
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
KEYWORD
easy,nonn
AUTHOR
Odimar Fabeny, Jul 22 2010
EXTENSIONS
a(6)-a(41) from Robert G. Wilson v, Aug 23 2010
STATUS
approved