OFFSET
1,1
COMMENTS
Squarefree numbers without the empty product, primes, and primorials.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
s = Select[Range[6, 2^10], And[SquareFreeQ[#], CompositeQ[#] ] &]; Complement[s, Most@ FoldWhileList[Times, 6, Prime@ Range[3, 120], # <= s[[-1]] &] ]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Michael De Vlieger, Jan 07 2024
STATUS
approved