cp's OEIS Frontend

A055398 Result of fourth stage of sieve of Eratosthenes (after eliminating multiples of 2, 3, 5, 7).

%I A055398 #21 Dec 14 2020 17:11:35
%S A055398 2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,
%T A055398 97,101,103,107,109,113,121,127,131,137,139,143,149,151,157,163,167,
%U A055398 169,173,179,181,187,191,193,197,199,209,211,221,223,227,229,233,239
%N A055398 Result of fourth stage of sieve of Eratosthenes (after eliminating multiples of 2, 3, 5, 7).
%C A055398 Essentially the same as A052424. - _R. J. Mathar_, Oct 13 2008
%H A055398 Ahmed Hamdy A. Diab, <a href="https://arxiv.org/abs/2012.03052">Sequence eliminating law (SEL) and the interval formulas of prime numbers</a>, arXiv:2012.03052 [math.NT], 2020.
%H A055398 H. B. Meyer, <a href="http://www.hbmeyer.de/eratosiv.htm">Eratosthenes' sieve</a>
%F A055398 a(n+4) = 2 * floor((3 * floor((10 * floor((9 * floor((56 * floor((55 * floor((54 * floor((53 * floor((52 * floor((51 * floor((50 * floor((49 * n + 1) / 48) + 13) / 49) + 20) / 50) + 24) / 51) + 31) / 52) + 35) / 53) + 42) / 54) + 54) / 55) + 1) / 8) + 8) / 9) + 1) / 2) + 1 for n>=1; see (22) in Diab link. - _Michel Marcus_, Dec 14 2020
%t A055398 Join[{2,3,5,7},Select[Table[n,{n,2,500}],Mod[#,2]!=0&&Mod[#,3]!=0&&Mod[#,5]!=0&&Mod[#,7]!=0&]] (* _Vladimir Joseph Stephan Orlovsky_, Feb 18 2011 *)
%Y A055398 Cf. A000040, A004280, A038179, A055396, A055399.
%K A055398 nonn
%O A055398 1,1
%A A055398 _Henry Bottomley_, May 15 2000