This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A060473 #21 Oct 27 2023 22:05:37
%S A060473 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 A060473 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 A060473 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 A060473 a(n) = numerator of phi(n)/(n+1), where phi(n) is Euler's phi, A000010.
%C A060473 a(A203966(n)) = 1. - _Robert G. Wilson v_, Jul 05 2014
%H A060473 T. D. Noe, <a href="/A060473/b060473.txt">Table of n, a(n) for n=1..1000</a>
%e A060473 a(7) = 3 because phi(7)/(7+1) = 6/8 = 3/4.
%p A060473 with(numtheory,phi): seq(numer(phi(n)/(n+1)), n=1..50);
%t A060473 Numerator/@Table[EulerPhi[n]/(n+1),{n,90}] (* _Harvey P. Dale_, May 11 2011 *)
%o A060473 (PARI) { for (n=1, 1000, write("b060473.txt", n, " ", numerator(eulerphi(n)/(n + 1))); ) } \\ _Harry J. Smith_, Jul 05 2009
%Y A060473 Cf. A000010, A060474.
%K A060473 easy,frac,nice,nonn
%O A060473 1,4
%A A060473 _Fabian Rothelius_, Mar 16 2001
%E A060473 More terms from _Asher Auel_, Mar 16 2001