OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
Table[If[PrimeOmega[DivisorSigma[1, n]] == DivisorSigma[1, PrimeOmega[n]], n, {}], {n, 2, 500}] // Flatten (* Wesley Ivan Hurt, Apr 17 2022 *)
Select[Range[550], PrimeOmega[DivisorSigma[1, #]]==DivisorSigma[1, PrimeOmega[ #]]&] (* Harvey P. Dale, Jul 04 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 31 2003
STATUS
approved