OFFSET
1,1
COMMENTS
MATHEMATICA
prix[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[2, 100], SquareFreeQ[#]&&Divisible[Times@@prix[#], Plus@@prix[#]]&]
CROSSREFS
Squarefree case of A326149.
For nonprime instead of squarefree we have A326150.
The non-prime case is A326158.
A003963 multiplies together prime indices.
A005117 lists the squarefree numbers.
A056239 adds up prime indices.
Counting and ranking multisets by comparing sum and product:
KEYWORD
nonn,new
AUTHOR
Gus Wiseman, Jan 19 2025
STATUS
approved