|
| |
|
|
A073700
|
|
a(1) = 1, a(n) = Floor[(Sum of composite numbers up to n)/(Sum of primes up to n)].
|
|
0
| |
|
|
1, 0, 0, 0, 0, 1, 0, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 2, 2, 3, 3, 3, 3, 3, 3, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 2, 3, 2, 2, 3, 3, 3, 3, 2, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,10
|
|
|
COMMENTS
| Though the sequence is not monotonically increasing the average value increases and a derived sequence could be the smallest value of k for which a(k) = n.
Note 1 is neither composite nor prime.
|
|
|
EXAMPLE
| a(10) = Floor[ {4+6+8+9+10}/{2+3+5+7)] =2.
|
|
|
MAPLE
| a := 0:b := 0:for i from 2 to 300 do if isprime(i) then a := a+i: else b := b+i:fi: c[i] := floor(b/a):od:c[1] := 1:seq(c[j], j=1..300);
|
|
|
CROSSREFS
| Sequence in context: A031263 A204897 A107577 * A108775 A074971 A198067
Adjacent sequences: A073697 A073698 A073699 * A073701 A073702 A073703
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Aug 12 2002
|
|
|
EXTENSIONS
| More terms from Sascha Kurz (sascha.kurz(AT)uni-bayreuth.de), Aug 15 2002
|
| |
|
|
