|
|
A060473
|
|
a(n) = numerator of phi(n)/(n+1), where phi(n) is Euler's phi, A000010.
|
|
3
|
|
|
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, 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, 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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
a(7) = 3 because phi(7)/(7+1) = 6/8 = 3/4.
|
|
MAPLE
|
with(numtheory, phi): seq(numer(phi(n)/(n+1)), n=1..50);
|
|
MATHEMATICA
|
Numerator/@Table[EulerPhi[n]/(n+1), {n, 90}] (* Harvey P. Dale, May 11 2011 *)
|
|
PROG
|
(PARI) { for (n=1, 1000, write("b060473.txt", n, " ", numerator(eulerphi(n)/(n + 1))); ) } \\ Harry J. Smith, Jul 05 2009
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,frac,nice,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|