

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


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}]] (* 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 A237119 A011881
Adjacent sequences: A062046 A062047 A062048 * A062050 A062051 A062052


KEYWORD

nonn


AUTHOR

Amarnath Murthy, Jun 06 2001


EXTENSIONS

More terms from Larry Reeves (larryr(AT)acm.org) and Matthew Conroy, Jun 11 2001


STATUS

approved



