%I #21 Oct 27 2023 22:05:37
%S 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,
%T 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,
%U 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
%N a(n) = numerator of phi(n)/(n+1), where phi(n) is Euler's phi, A000010.
%C a(A203966(n)) = 1. - _Robert G. Wilson v_, Jul 05 2014
%H T. D. Noe, <a href="/A060473/b060473.txt">Table of n, a(n) for n=1..1000</a>
%e a(7) = 3 because phi(7)/(7+1) = 6/8 = 3/4.
%p with(numtheory,phi): seq(numer(phi(n)/(n+1)), n=1..50);
%t Numerator/@Table[EulerPhi[n]/(n+1),{n,90}] (* _Harvey P. Dale_, May 11 2011 *)
%o (PARI) { for (n=1, 1000, write("b060473.txt", n, " ", numerator(eulerphi(n)/(n + 1))); ) } \\ _Harry J. Smith_, Jul 05 2009
%Y Cf. A000010, A060474.
%K easy,frac,nice,nonn
%O 1,4
%A _Fabian Rothelius_, Mar 16 2001
%E More terms from _Asher Auel_, Mar 16 2001