|
|
A064029
|
|
Numbers k such that sopfr(k) = ud(k), where sopfr = A001414 and ud = A034444.
|
|
1
|
|
|
2, 5460, 9240, 253890, 358050, 387090, 395850, 429660, 440895, 458850, 468930, 475020, 529074, 550620, 574770, 629850, 669900, 755820, 788970, 803880, 821100, 828828, 895356, 896610, 948090, 985320, 986700, 1065900, 1123122, 1168860, 1184040, 1279080, 1331330
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[10^6], Plus @@ Times @@@(f = FactorInteger[#]) == 2^Length@f &] (* Amiram Eldar, Dec 01 2019 *)
|
|
PROG
|
(PARI) sopfr(n, s, fac, i) = fac=factor(n); for(i=1, matsize(fac)[1], s=s+fac[i, 1]*fac[i, 2]); return(s);
isok(k) = sopfr(k) == 2^omega(k);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|