OFFSET
1,1
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
MAPLE
with(numtheory, phi): seq(denom(phi(n)/(n+1)), n=1..50);
MATHEMATICA
Denominator[Table[EulerPhi[n]/(n+1), {n, 80}]] (* Harvey P. Dale, Apr 13 2012 *)
PROG
(PARI) { for (n=1, 1000, write("b060474.txt", n, " ", denominator(eulerphi(n)/(n + 1))); ) } \\ Harry J. Smith, Jul 13 2009
(Python)
from sympy import totient, gcd
def A060474(n): return (n+1)//gcd(n+1, totient(n)) # Chai Wah Wu, Apr 02 2021
CROSSREFS
KEYWORD
easy,frac,nice,nonn
AUTHOR
Fabian Rothelius, Mar 16 2001
EXTENSIONS
More terms from Asher Auel, Mar 16 2001
A Maple program that should have been a PARI program removed by Harry J. Smith, Jul 13 2009
STATUS
approved