OFFSET
1,1
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Select[Range[240], Nor[SquareFreeQ[#], PrimePowerQ[#]] &], Nand[EvenQ[#], Union@ Differences@ PrimePi[FactorInteger[#][[All, 1]]] == {1}] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Jan 20 2024
STATUS
approved