|
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The corresponding terms in A050972 are: 6, 40, 12, 6, 30, 6, 40, 6, ...
Note the subsequence 28, 496, 8128, 33550336: friends of 6 (cf A000396).
|
|
LINKS
|
|
|
EXAMPLE
|
28/6 < 224/40 < 234/12 < 496/6 < 6200/30 < 8128/6 < 174592/40 < ....
|
|
PROG
|
(PARI) isrmax(i, rmax) = {si = sigma(i); if (gcd(si, i) == 1, return (0)); s = si/i; for (j=1, i\rmax, if ((sigma(j)/j) == s, if ((newr = i/j) > rmax, return (newr)); ); ); return (0); }
lista(nn) = {rmax = 1; for (i = 1, nn, if ((newr = isrmax(i, rmax)), rmax = newr; print1(i, ", "); ); ); }
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|