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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A065150 Harmonic mean of phi(n) and Sigma[n] is an integer. 1
1, 12, 15, 35, 56, 78, 95, 140, 143, 172, 190, 248, 264, 287, 315, 319, 323, 357, 418, 477, 588, 594, 675, 812, 814, 840, 899, 910, 1045, 1107, 1118, 1131, 1199, 1208, 1254, 1349, 1420, 1425, 1485, 1495, 1558, 1608, 1672, 1763, 2214, 2261, 2318, 2337 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Harry J. Smith, Table of n, a(n) for n=1,...,1000

FORMULA

Mod[G^2, A] = 0, where G^2=A000010(m)*A000203(m), A=[A000010(m)+A000203(m)]/2; harmonic mean =[G^2]/A is integer.

EXAMPLE

m=319, Phi[319]=280, Sigma[319]=360; Phi[319]*Sigma[319]=100800, Phi[319]+Sigma[319]=640; 1/harmonic mean =[640/100800]/2, harmonic mean=315, arithmetic mean=320, geometric mean is not an integer.

PROG

(PARI) { n=0; for (m=1, 10^9, e=eulerphi(m); s=sigma(m); h=(2*e*s)/(e + s); if (frac(h) == 0, write("b065150.txt", n++, " ", m); if (n==1000, return)) ) } [From Harry J. Smith, Oct 13 2009]

CROSSREFS

A000010, A000203, A065146, A011257.

Sequence in context: A194234 A296796 A161917 * A277082 A087098 A109315

Adjacent sequences:  A065147 A065148 A065149 * A065151 A065152 A065153

KEYWORD

nonn

AUTHOR

Labos Elemer, Oct 18 2001

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 23 15:33 EST 2018. Contains 299581 sequences. (Running on oeis4.)