OFFSET
1,2
EXAMPLE
105 has prime indices {2,3,4}, all three of which are prime-powers, so 105 is in the sequence.
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[100], SquareFreeQ[#]&&And@@PrimePowerQ/@primeMS[#]&]
CROSSREFS
Heinz numbers of the partitions counted by A054685, with 1's A106244, non-strict A023894, non-strict with 1's A023893.
These are the odd products of distinct elements of A302493.
These are the squarefree positions of 1's in A355741.
A001222 counts prime-power divisors.
A005117 lists the squarefree numbers.
A034699 gives maximal prime-power divisor.
A355742 chooses a prime-power divisor of each prime index.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 25 2022
STATUS
approved