login
A160596
Denominator of resilience R(n) = phi(n)/(n-1).
9
1, 1, 3, 1, 5, 1, 7, 4, 9, 1, 11, 1, 13, 7, 15, 1, 17, 1, 19, 5, 21, 1, 23, 6, 25, 13, 9, 1, 29, 1, 31, 8, 33, 17, 35, 1, 37, 19, 39, 1, 41, 1, 43, 11, 45, 1, 47, 8, 49, 25, 17, 1, 53, 27, 55, 14, 57, 1, 59, 1, 61, 31, 63, 4, 13, 1, 67, 17, 23, 1, 71, 1, 73, 37, 25, 19, 77, 1, 79, 40, 81, 1
OFFSET
2,3
COMMENTS
The resilience of a denominator, R(d), is the ratio of proper fractions n/d, 0 < n < d, that are resilient, i.e., such that gcd(n,d)=1. Obviously this is the case for phi(d) proper fractions among the d-1 possible ones.
a(n) = 1 if and only if n is prime. - Robert Israel, Dec 26 2016
LINKS
EXAMPLE
a(9)=4 since for the denominator d=9, among the 8 proper fractions n/9 (n=1,...,8), six cannot be canceled down by a common factor (namely 1/9, 2/9, 4/9, 5/9, 7/9, 8/9), thus R(9) = 6/8 = 3/4.
MAPLE
seq(denom(numtheory:-phi(n)/(n-1)), n=2..100); # Robert Israel, Dec 26 2016
MATHEMATICA
Denominator[Table[EulerPhi[n]/(n-1), {n, 2, 90}]] (* Harvey P. Dale, Apr 18 2012 *)
PROG
(PARI) A160496(n)=denominator(eulerphi(n)/(n-1))
(Magma) [Denominator(EulerPhi(n)/(n-1)): n in [2..80]]; // Vincenzo Librandi, Jan 02 2017
CROSSREFS
Sequence in context: A292393 A136180 A095112 * A092319 A254938 A244149
KEYWORD
nonn,look
AUTHOR
M. F. Hasler, May 23 2009
STATUS
approved