login
A236355
Terms of A050973 that give maximum record values for A050973(k)/A050972(k).
1
28, 224, 234, 496, 6200, 8128, 174592, 544635, 2886100, 33550336
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
Eric Weisstein's World of Mathematics, Friendly Pair.
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
Michel Marcus, Jan 23 2014
STATUS
approved