|
|
A345002
|
|
Numbers k such that A345001(k)/A342001(k) is a positive natural number and a divisor of k.
|
|
2
|
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
PROG
|
(PARI)
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A003557(n) = (n/factorback(factorint(n)[, 1]));
isA345002(n) = if(1==n, 0, my(d=A003415(n), s=sigma(n)+d-(n+n), r=s/(d/A003557(n))); (r>0&&1==denominator(r)&&!(n%r)));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|