cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A339806 Indices of vertex points of the upper convex hull of the squarefree number graph.

Original entry on oeis.org

1, 2, 3, 7, 43, 239, 1663, 9242, 47523, 351115, 2015403, 4026914, 10143015, 72872619, 144151023, 413384223
Offset: 1

Views

Author

Irwin Paredes Escobar, Dec 19 2020

Keywords

Comments

Denoting the number of squarefrees up to n by Q(n), we say (n, Q(n)) is on the upper convex hull of the squarefree number graph if for all integers m_1 < n and all integers m_2 > n, (n, Q(n)) is above the secant line from (m_1, Q(m_1)) to (m_2, Q(m_2)). To determine whether n is the index of a vertex in the upper convex hull, it suffices to only check the record maximum points of Q(m)-6*m/Pi^2.

Examples

			3 is on the upper convex hull because Q(3) = 3 and the secant line from (1,1) or (2,2) to (n,Q(n)) for any n>3 passes below the point (3,Q(3)).
		

Crossrefs

Cf. A275390 (record values of |Q(m)-6*m/Pi^2|).

A339865 Squarefree numbers k for which Q(k) - 6*k/Pi^2 sets a new record minimum, where Q(x) is the number of squarefree numbers up to x.

Original entry on oeis.org

1, 29, 57, 173, 177, 365, 370, 377, 379, 381, 1090, 1865, 5578, 5590, 11326, 11333, 11863, 11865, 11877, 11882, 12657, 13881, 32285, 32313, 32833, 32853, 32881, 33034, 33041, 37558, 37561, 37571, 37573, 37577, 37689, 38729, 38858, 38863, 38865, 38873, 38877
Offset: 1

Views

Author

Adedoyin M. Adegbuyi, Jan 15 2021

Keywords

Comments

The sequence contains each squarefree integer k where Q(k) - 6*k/Pi^2 is smaller than Q(m) - 6*m/Pi^2 for any 0 < m < k. Where both m and k are squarefree. It is well known that Q(k) is asymptotic to 6*k/Pi^2.

Examples

			Q(29) = 18 and Q(29) - 6*29/Pi^2 = 0.37011... is smaller than Q(1) - 6/Pi^2 = 0.39207...
		

Crossrefs

Cf. A005117, A275390 (indices of records of |Q(m)-6*m/Pi^2|).

Programs

  • Mathematica
    s = Select[Range[50000], SquareFreeQ]; d = 6*s/Pi^2 - Range[Length[s]]; s[[Flatten[Position[d, #][[1]] & /@ Union @ FoldList[Max, d]]]] (* Amiram Eldar, Jan 27 2021 *)
  • PARI
    lista(nn) = {my(m=oo, nb=0, x); forsquarefree(n=1, nn, nb++; x = nb - 6*n[1]/Pi^2; if (x < m, m = x; print1(n[1], ", ")););} \\ Michel Marcus, Jan 26 2021

Extensions

More terms from Jinyuan Wang, Jan 16 2021
Showing 1-2 of 2 results.