|
| |
|
|
A102614
|
|
Denominators of the reduced fractions of the ratios of the number of primes less than n over the number of composites less than n.
|
|
0
| |
|
|
1, 1, 1, 1, 2, 1, 3, 1, 5, 3, 6, 7, 7, 4, 3, 5, 10, 11, 11, 3, 13, 7, 14, 5, 16, 17, 2, 19, 19, 2, 20, 21, 2, 23, 24, 25, 25, 13, 9, 7, 28, 29, 29, 15, 31, 16, 32, 11, 34, 7, 12, 37, 37, 19, 39, 5, 41, 21, 42, 43, 43, 22, 5, 23, 47, 8, 48, 49, 50, 51, 51, 13, 52, 53, 18, 55, 8, 19, 57, 29
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,5
|
|
|
FORMULA
| pi(n) is the number of primes <= n. Number of composites <= n = n - pi(n).
|
|
|
MATHEMATICA
| frac[n_]:=Module[{ps=PrimePi[n]}, ps/(n-ps)]; Denominator/@Array[frac, 90] (* From Harvey P. Dale, May 19 2011 *)
|
|
|
PROG
| (PARI) pixovcmpx(n) = for(x=1, n, print1(denominator(pi(x)/(x-pi(x)))", ")) pi(n) = \Number of primes less than or equal to n. { local(c, x); c=0; forprime(x=1, n, c++); return(c) }
|
|
|
CROSSREFS
| Sequence in context: A154279 A065370 A147783 * A078657 A080959 A065548
Adjacent sequences: A102611 A102612 A102613 * A102615 A102616 A102617
|
|
|
KEYWORD
| frac,nonn
|
|
|
AUTHOR
| Cino Hilliard (hillcino368(AT)gmail.com), Jan 30 2005
|
| |
|
|
