|
| |
|
|
A062049
|
|
Integer part of geometric mean of first n primes.
|
|
1
|
|
|
|
2, 2, 3, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 19, 20, 21, 23, 24, 25, 27, 28, 29, 31, 32, 34, 35, 36, 38, 39, 41, 43, 44, 46, 47, 49, 50, 52, 53, 55, 57, 58, 60, 61, 63, 65, 66, 68, 70, 71, 73, 75, 76, 78, 80, 82, 83, 85, 87, 88, 90, 92, 94, 95, 97, 99, 101, 103
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Harry J. Smith, Table of n, a(n) for n=1,...,1000
Matthew M. Conroy, Home page (listed instead of email address)
|
|
|
EXAMPLE
|
a(5) = floor{(2*3*5*7*11)^(1/5}= 4.
|
|
|
MATHEMATICA
|
With[{pl=Prime[Range[80]]}, Table[IntegerPart[GeometricMean[Take[pl, n]]], {n, 80}]] (* From Harvey P. Dale, Mar 31 2012 *)
|
|
|
PROG
|
(PARI) { default(realprecision, 100); p=1; for (n=1, 1000, p*=prime(n); write("b062049.txt", n, " ", p^(1/n)\1) ) } [From Harry J. Smith, Jul 30 2009]
|
|
|
CROSSREFS
|
Cf. A060620.
Sequence in context: A126027 A111581 A116572 * A025764 A011881 A076678
Adjacent sequences: A062046 A062047 A062048 * A062050 A062051 A062052
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jun 06 2001
|
|
|
EXTENSIONS
|
More terms from Larry Reeves (larryr(AT)acm.org) and Matthew M. Conroy, Jun 11 2001
|
|
|
STATUS
|
approved
|
| |
|
|
