OFFSET
1,2
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
{1}~Join~Select[Range[4, 200000, 2], Or[PrimePowerQ[#], And[Union@ Differences@ PrimePi@ #1 == {1}, AllTrue[Union@ Differences@ #2, # <= 0 &], GCD @@ #2 > 1] & @@ Transpose@ FactorInteger[#]] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Jan 02 2024
STATUS
approved