A379051 Lexicographically earliest infinite sequence of distinct positive numbers with the property that n is a member of the sequence iff a(n) is composite.
2, 4, 5, 6, 8, 9, 10, 12, 14, 15, 7, 16, 17, 18, 20, 21, 22, 24, 23, 25, 26, 27, 28, 30, 32, 33, 34, 35, 31, 36, 38, 39, 40, 42, 44, 45, 41, 46, 48, 49, 50, 51, 47, 52, 54, 55, 56, 57, 58, 60, 62, 63, 59, 64, 65, 66, 68, 69, 70, 72, 67, 74, 75, 76, 77, 78, 80
Offset: 1
Keywords
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..65536 [Terms 1 to 10000 from Scott R. Shannon]
Crossrefs
Programs
-
Mathematica
nn = 120; u = 3; v = {}; w = {2}; c = 4; {2}~Join~Reap[Do[ If[MemberQ[w, n], k = c; w = DeleteCases[w, n], m = Min[c, u, v]; If[And[CompositeQ[m], n < m], AppendTo[v, n]]; If[Length[v] > 0, If[v[[1]] == m, v = Rest[v] ] ]; k = m]; AppendTo[w, k]; If[k == c, c++; While[PrimeQ[c], c++] ]; Sow[k]; If[n + 1 >= u, u++; While[CompositeQ[u], u++]], {n, 2, nn}] ][[-1, 1]] (* Michael De Vlieger, Dec 17 2024 *)
Formula
When sorted, this appears to be the complement of [1, 3, 11, and prime(2*t), t >= 3]. - Scott R. Shannon, Dec 18 2024
Extensions
More terms from Michael De Vlieger, Dec 17 2024
Comments