login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A137816 Nonsquarefree "year numbers" (numbers n such that phi(n) = 2 phi(sigma(n)): A137815). 6
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

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.

LINKS

M. F. Hasler, Table of n, a(n) for n=1,...,785.

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 *)

PROG

(PARI) { for( n=1, 10^8, !issquarefree(n) && eulerphi(n)==2*eulerphi(sigma(n)) && print1(n", "))

CROSSREFS

Cf. A137815-A137819, A006872, A067704.

Sequence in context: A251956 A232153 A203791 * A138760 A251885 A251878

Adjacent sequences:  A137813 A137814 A137815 * A137817 A137818 A137819

KEYWORD

nonn

AUTHOR

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

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 April 18 22:02 EDT 2021. Contains 343090 sequences. (Running on oeis4.)