%I #8 Jul 19 2015 03:32:25
%S 4,10,33,53,138,201,340,431,624,1024,1116,1557,1989,2202,2702,3357,
%T 4098,4520,5484,6109,6615,7608,8502,9802,11391,12286,13002,14160,
%U 14918,16142,19896,21320,23069,23760,27377,28429,30430,33159,34977,37876,40177
%N Sum of the numbers already removed (including the target number) in the first jump of a Sieve of Eratosthenes table.
%C 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).
%t 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 *)
%Y Cf. A000040 and A179628.
%K easy,nonn
%O 0,1
%A _Odimar Fabeny_, Jul 22 2010
%E a(6)-a(41) from _Robert G. Wilson v_, Aug 23 2010
|