OFFSET
1,2
COMMENTS
LINKS
EXAMPLE
91 = 7 * 13 has prime indices {4,6}, which have a common divisor of 2, so 91 is not in the sequence.
MATHEMATICA
Select[Range[100], #==1||PrimeQ[#]||GCD@@PrimePi/@First/@FactorInteger[#]==1&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 17 2019
STATUS
approved