login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A018894 Numbers n such that sigma(n)/phi(n) sets a new record. 8
1, 2, 4, 6, 12, 24, 30, 60, 120, 180, 210, 360, 420, 840, 1260, 1680, 2520, 4620, 9240, 13860, 18480, 27720, 55440, 110880, 120120, 180180, 240240, 360360, 720720, 1441440, 2162160, 3603600, 4084080, 4324320, 6126120, 12252240, 24504480, 36756720, 61261200 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Remarkably similar to but ultimately different from A126098. - Jorg Brown and N. J. A. Sloane, Mar 06 2007

Is a(n+1) <= 2*a(n)? Is a(n) divisible by the primorial p# where p is the largest prime divisor of a(n)? Is a(k) divisible by p# for all k > n + 1? (Cf. A002110.) - David A. Corneth, May 22 2016

From Jud McCranie, Nov 28 2017: (Start)

Yes, a(n+1) <= 2*a(n) -- if m is odd, phi(2m) = phi(m) and sigma(2m) = 3*sigma(m).

If m is even then phi(2m) = 2*phi(m) and sigma(2m) > 2*sigma(m).

So sigma(2m)/phi(2m) > sigma(m)/phi(m).

LINKS

Jud McCranie, Table of n, a(n) for n = 1..79 (first 63 terms from Donovan Johnson)

Jorg Brown, Comparison of records in sigma(n)/phi(n) and A018892

MATHEMATICA

Flatten@ Function[k, FirstPosition[k, #] & /@ Union@ Rest@ FoldList[Max, 0, k]]@ Array[DivisorSigma[1, #]/EulerPhi@ # &, 10^7] (* Michael De Vlieger, May 27 2016, Version 10 *)

PROG

(PARI) lista(nn) = {mse = 0; for (n=1, nn, se = sigma(n)/eulerphi(n); if (se > mse, print1(n, ", "); mse = se); ); } \\ Michel Marcus, Jul 10 2015

CROSSREFS

Cf. A000010, A000203, A015702, A126098, A002110.

Sequence in context: A266228 A265719 A126098 * A168264 A282472 A056795

Adjacent sequences:  A018891 A018892 A018893 * A018895 A018896 A018897

KEYWORD

nonn

AUTHOR

Michel ten Voorde

EXTENSIONS

More terms from Jud McCranie, Nov 09 2001

Initial term added by Arkadiusz Wesolowski, Sep 06 2012

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 17 08:36 EDT 2019. Contains 328107 sequences. (Running on oeis4.)