Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%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