A369361 Numbers that are not products of primorials.
3, 5, 7, 9, 10, 11, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 31, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82
Offset: 1
Links
- Michael De Vlieger, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[210], Nor[# == 1, IntegerQ@ Log2[#], And[EvenQ[#1], Union@ Differences@ PrimePi[#2[[All, 1]]] == {1}, AllTrue[Differences@ #2[[All, -1]], # <= 0 &]]] & @@ {#, FactorInteger[#]} &]
Comments