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

Author

Fabian Rothelius, Mar 16 2001

Keywords

• easy
• frac
• nice
• nonn

Comments

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

Examples

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

Links

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

Crossrefs

Cf. A000010, A060474.

Programs

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

PARI

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

Extensions

More terms from Asher Auel, Mar 16 2001