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-4 of 4 results.

A137815 Year numbers: numbers n such that phi(n) = 2 phi(sigma(n)).

Original entry on oeis.org

5, 13, 37, 61, 65, 73, 119, 157, 185, 193, 277, 305, 313, 365, 397, 421, 457, 481, 541, 613, 661, 673, 733, 757, 785, 793, 877, 949, 965, 997, 1093, 1153, 1201, 1213, 1237, 1321, 1381, 1385, 1453, 1547, 1565, 1615, 1621, 1657, 1753, 1873, 1933, 1985, 1993
Offset: 1

Views

Author

R. K. Guy, R. J. Mathar and M. F. Hasler, Feb 11 2008

Keywords

Comments

Following D. Iannucci, n is called a "year number" if phi(n) / phi(sigma(n)) = 2 (thus 365 is a year number, explaining the terminology).
D. Iannucci asks: Are there any even year numbers? Are there any odd year numbers that are not squarefree?
Remark: If n = q_1 q_2 ... q_k is a product of odd primes such that (q_j + 1)/2 is an odd prime for all j, then n is a year number.
Solution: for nonsquarefree year numbers, see A137816. See A137817-A137819 for year numbers with cubes, 4th powers, 5th powers.
Eric Landquist found year numbers divisible by 7^2, 7^3 and 7^4, as well as 120781449 = 3^8 * 41 * 449.
The existence of even year numbers is still open, but Eric checked all 200-smooth even integers with a single large prime up to 10^8 and found no year numbers among them.
See also references in A082897 (perfect totient numbers).

References

  • R. K. Guy, "Euler's Totient Function", "Solutions of phi(m)=sigma(n)", "Iterations of phi and sigma", "Behavior of phi(sigma(n)) and sigma(phi(n))". =A7 B36-B42 in Unsolved Problems in Number Theory, 3rd ed. New York: Springer-Verlag, pp. 138-151, 2004.
  • Doug Iannucci, in: Gerry Myerson (ed.), 2007 Western Number Theory problems set.

Crossrefs

Cf. A137816-A137819, A006872 (phi(sigma(n)) = phi(n)), A067704 (phi(sigma(n)) = 2 phi(n)), A082897.

Programs

  • Mathematica
    Select[Range[2000],EulerPhi[#]==2EulerPhi[DivisorSigma[1,#]]&]  (* Harvey P. Dale, Mar 18 2011 *)
  • PARI
    for( n=1,10^7, eulerphi(n)==2*eulerphi(sigma(n)) && print1(n", "))

A137816 Nonsquarefree "year numbers" (numbers n such that phi(n) = 2*phi(sigma(n)): A137815).

Original entry on oeis.org

5491, 8075, 25317, 27455, 71383, 72283, 76131, 104975, 138575, 193041, 203167, 295569, 295947, 298775, 334951, 356915, 361415, 400843, 451535, 492275, 509575, 572975, 589475, 595975, 654493, 683757, 815975, 862087, 876627, 919075, 936729
Offset: 1

Views

Author

R. K. Guy, R. J. Mathar and M. F. Hasler, Feb 11 2008

Keywords

Comments

This is the subsequence of nonsquarefree elements of A137815. See there for more comments and references.
There are only 32 such numbers below 10^6, 145 below 10^7 and 785 below 10^8.

Crossrefs

Programs

  • Mathematica
    Reap[For[n=1, n<10^6, n++, If[!SquareFreeQ[n] && EulerPhi[n] == 2*EulerPhi[ DivisorSigma[1, n]], Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Dec 12 2016 *)
  • PARI
    for( n=1,10^6, !issquarefree(n) && eulerphi(n)==2*eulerphi(sigma(n)) && print1(n", "))

A137817 Cubeful "year numbers" (such that phi(n) = 2 phi(sigma(n)): A137815).

Original entry on oeis.org

295569, 295947, 1586763, 1811079, 1964375, 2069469, 4473387, 5854375, 6820555, 7285923, 10936053, 12233457, 13260625, 18029709, 18052767, 21153663, 21576537, 21604131, 22182093, 22877451, 23744043, 25536875, 28340307, 34102775
Offset: 1

Views

Author

R. K. Guy, R. J. Mathar and M. F. Hasler, Feb 11 2008

Keywords

Comments

See A137815 for general comments and references about "year numbers". This is the subsequence of cubeful elements of A137815, i.e. its intersection with A046099. As such, it is of course also a subsequence of A137816.
There are only 56 such numbers below 10^8.

Crossrefs

Programs

  • PARI
    for( i=1,#A137816, vecmax( factor( A137816[i] )[,2])>2 && print1(A137816[i]", "))
    
  • PARI
    for( i=1,#A046099, eulerphi(A046099[i])==2*eulerphi(sigma(A046099[i])) && print1( A046099[i] ", "))
    
  • PARI
    for( n=1,10^9, issquarefree(n) && next; vecmax(factor(n)[,2])>2 || next; eulerphi(n)==2*eulerphi(sigma(n)) && print1(n", "))

A137818 Non-biquadratefree "year numbers": phi(n) = 2 phi(sigma(n)) and p^4 | n for some p>1.

Original entry on oeis.org

295569, 1811079, 1964375, 2069469, 4473387, 5854375, 10936053, 13260625, 18029709, 21576537, 22182093, 25536875, 35595625, 46404333, 49648383, 55094375, 57044817, 58650625, 67009923, 69166467, 72681875, 76106875
Offset: 1

Views

Author

R. K. Guy, R. J. Mathar and M. F. Hasler, Feb 11 2008

Keywords

Comments

See A137815 for general comments and references about "year numbers". This is the subsequence of elements of A137815 divisible by a biquadrateful number, i.e. its intersection with A046101 (numbers divisible by the 4th power of some prime). As such, it is of course also a subsequence of A137817 and a fortiori of A137816.
There are only 28 such numbers below 10^8.

Crossrefs

Programs

  • PARI
    for( i=1,#A137816, vecmax( factor( A137816[i])[,2])>3 && print1(A137816[i]", "))
    
  • PARI
    for( i=1,#A046099, eulerphi(A046099[i])==2*eulerphi(sigma(A046099[i])) && print1( A046099[i] ", "))
    
  • PARI
    for( n=1,10^9, issquarefree(n) && next; vecmax(factor(n)[,2])>3 || next; eulerphi(n)==2*eulerphi(sigma(n)) && print1(n", "))
Showing 1-4 of 4 results.