OFFSET
1
COMMENTS
LINKS
MATHEMATICA
Table[Boole[GCD@@PrimePi/@First/@FactorInteger[n]==1], {n, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 17 2019
STATUS
approved