The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A244043 Numbers n for new peaks of floor(sigma(n)/primepi(n)). 1
 2, 6, 12, 24, 30, 36, 60, 96, 120, 180, 240, 360, 600, 720, 840, 1080, 1260, 1680, 2520, 5040, 7560, 10080, 12600, 15120, 20160, 25200, 27720, 45360, 50400, 55440, 83160 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS sigma(n) = A000203(n), primepi(n) = A000720(n). The sequence entries frequently are members of A002182 (highly composite numbers). Similar sequences can be generated by varying the "k" seen in the PARI code, for example to k=2. Subsequence of A002093 (highly abundant numbers). - Jens Kruse Andersen, Jul 15 2014 LINKS Jens Kruse Andersen, Table of n, a(n) for n = 1..82 FORMULA Define A(n) = floor(A000203(n)/A000720(n)) for n >= 2. Then a(1) = 2 and for n >= 2 a(n) is the least k > a(n-1) such that A(k) > A(a(n-1)). - Wolfdieter Lang, Jul 03 2014 EXAMPLE Example at n=2 (start), sigma(2)=3, primepi(2)=1 so the initial peak is 3. We see a new peak (4) at n=6 from floor(12/3), a(2)=6. We see new peak (5) at n=12 from floor(28/5), a(3)=12. No entry is defined for n<2. MATHEMATICA Reap[For[peak = 0; n = 2, n < 10^5, n++, f = Floor[DivisorSigma[1, n] / PrimePi[n]]; If[f > peak, peak = f; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Jan 12 2018 *) PROG (PARI) genit={my(maxx=100000); peak=3; k=1; n=3; optr=2; sptr=1; write("A244043.csv", sptr, " , ", 2); while(npeak, sptr++; peak=c; write("A244043.csv", sptr, " , ", optr); ); n++); } CROSSREFS Cf. A000203, A000720, A002093, A002182. Sequence in context: A291014 A257479 A307740 * A058868 A129314 A137895 Adjacent sequences: A244040 A244041 A244042 * A244044 A244045 A244046 KEYWORD easy,nonn AUTHOR Bill McEachen, Jun 17 2014 EXTENSIONS Edited. Crossrefs for sigma and primepi added. - Wolfdieter Lang, Jul 03 2014 STATUS approved

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

Last modified May 26 18:19 EDT 2024. Contains 372840 sequences. (Running on oeis4.)