A060473 a(n) = numerator of phi(n)/(n+1), where phi(n) is Euler's phi, A000010.

1, 1, 1, 2, 2, 2, 3, 4, 3, 4, 5, 4, 6, 2, 1, 8, 8, 6, 9, 8, 6, 10, 11, 8, 10, 4, 9, 12, 14, 8, 15, 16, 10, 16, 2, 12, 18, 6, 3, 16, 20, 12, 21, 4, 12, 22, 23, 16, 21, 20, 8, 24, 26, 18, 5, 8, 18, 28, 29, 16, 30, 10, 9, 32, 8, 20, 33, 32, 22, 24, 35, 24, 36, 12, 10, 36, 10, 24, 39, 32, 27, 40, 41

Offset

1,4

Comments

a(A203966(n)) = 1. - Robert G. Wilson v, Jul 05 2014

Links

T. D. Noe, Table of n, a(n) for n=1..1000

Example

a(7) = 3 because phi(7)/(7+1) = 6/8 = 3/4.

Maple

with(numtheory, phi): seq(numer(phi(n)/(n+1)), n=1..50);

Mathematica

Numerator/@Table[EulerPhi[n]/(n+1), {n, 90}] (* Harvey P. Dale, May 11 2011 *)

Prog

(PARI) { for (n=1, 1000, write("b060473.txt", n, " ", numerator(eulerphi(n)/(n + 1))); ) } \\ Harry J. Smith, Jul 05 2009

Crossrefs

Cf. A000010, A060474.

Sequence in context: A016729 A155940 A186963 * A055034 A362739 A112184

Adjacent sequences: A060470 A060471 A060472 * A060474 A060475 A060476

Keyword

easy,frac,nice,nonn

Author

Fabian Rothelius, Mar 16 2001

Extensions

More terms from Asher Auel, Mar 16 2001

Status

approved