|
| |
|
|
A089221
|
|
The complex magnitude of a set of points for the geometric and arithmetic averages of the primes and their distribution.
|
|
0
| |
|
|
1, 2, 4, 5, 9, 10, 13, 14, 16, 19, 21, 25, 28, 29, 31, 34, 38, 39, 44, 46, 47, 50, 53, 56, 60, 62, 63, 65, 68, 70, 78, 80, 83, 84, 89, 90, 94, 98, 100, 103, 107, 108, 114, 115, 117, 118, 126, 132, 134, 135, 137, 140, 142, 147, 150, 153, 156, 157, 162, 164, 166, 171, 178
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
FORMULA
| a(n) = Floor[Sqrt[((Prime[n]+PrimePi[n])/2)^2+Prime[n]*PrimePi[n]]]
|
|
|
MATHEMATICA
| digits=200 f[n_]=Floor[Sqrt[((Prime[n]+PrimePi[n])/2)^2+Prime[n]*PrimePi[n]]] a=Table[f[n], {n, 1, digits}]
|
|
|
CROSSREFS
| Sequence in context: A047613 A036795 A024618 * A113755 A167180 A091271
Adjacent sequences: A089218 A089219 A089220 * A089222 A089223 A089224
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 03 2004
|
| |
|
|
