OFFSET
1,1
REFERENCES
Allan C. Wechsler, Posting to Math Fun Mailing List, July 16 2016.
EXAMPLE
List of [n, factorization of S(n)/n], with terms satisfying the condition marked with ***:
[1, 1]
[2, (3)/(2)]
[3, (2)^2/(3)]
[4, (7)/(2)^2]
[5, (2)*(3)/(5)] ***
[6, (2)]
[7, (2)^3/(7)]
[8, (3)*(5)/(2)^3] ***
[9, (13)/(3)^2]
[10, (3)^2/(5)]
[11, (2)^2*(3)/(11)] ***
[12, (7)/(3)]
[13, (2)*(7)/(13)] ***
[14, (2)^2*(3)/(7)] ***
[15, (2)^3/(5)]
[16, (31)/(2)^4]
[17, (2)*(3)^2/(17)] ***
[18, (13)/(2)/(3)]
...
PROG
(PARI) cmpf(x, y) = f[x, 1]^abs(f[x, 2]) >= f[y, 1]^abs(f[y, 2]);
isok(n) = f = factor(sigma(n)/n); vf = vector(#f~, k, k); vsi = vecsort(vf, cmpf, 1); f[vsi[#f~], 2] < 0; \\ Michel Marcus, Jul 20 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jul 19 2016
EXTENSIONS
More terms from Michel Marcus, Jul 20 2016
STATUS
approved