A305026 Numbers k such that sopfr(k) = tau(k)^2.
39, 55, 354, 578, 1634, 1644, 6604, 8253, 9825, 12573, 13516, 14749, 15244, 16684, 18669, 18672, 19276, 19564, 21032, 22225, 25305, 28449, 29853, 31688, 33633, 35793, 41261, 41768, 41949, 42813, 48013, 50670, 54048, 59750, 60804, 63609, 63869, 65265, 78832
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Rest@ Select[Range[10^5], Total[Times @@@ FactorInteger@ #] == DivisorSigma[0, #]^2 &] (* Michael De Vlieger, May 27 2018 *)
-
PARI
isok(n) = my(f=factor(n)); sum(k=1,#f~,f[k,1]*f[k,2]) == numdiv(n)^2; \\ Michel Marcus, May 24 2018
Comments