|
| |
|
|
A060473
|
|
a(n) = numerator of phi(n)/(n+1), where phi(n) is Euler's phi, A000010.
|
|
2
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 1,4
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=1..1000
|
|
|
EXAMPLE
| a(7) = 3/4 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}] (* From Harvey P. Dale, May 11 2011 *)
|
|
|
PROG
| (PARI) { for (n=1, 1000, write("b060473.txt", n, " ", numerator(eulerphi(n)/(n + 1))); ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jul 05 2009]
|
|
|
CROSSREFS
| Cf. A000010, A060474.
Sequence in context: A016729 A155940 A186963 * A055034 A112184 A112213
Adjacent sequences: A060470 A060471 A060472 * A060474 A060475 A060476
|
|
|
KEYWORD
| easy,frac,nice,nonn
|
|
|
AUTHOR
| Fabian Rothelius (fabian.rothelius(AT)telia.com), Mar 16 2001
|
|
|
EXTENSIONS
| More terms from Asher Natan Auel (auela(AT)reed.edu), Mar 16 2001
|
| |
|
|
