A061565 Floor( product_{k = 1..n} k^(1/k) ).

1, 1, 2, 2, 3, 5, 7, 9, 11, 14, 18, 22, 27, 33, 39, 47, 55, 65, 76, 89, 102, 118, 135, 154, 176, 199, 225, 254, 285, 319, 357, 398, 442, 491, 543, 600, 661, 728, 800, 877, 960, 1050, 1146, 1249, 1359, 1477, 1603, 1738, 1881, 2034, 2197, 2371, 2555, 2751, 2959

Offset

1,3

Links

Harry J. Smith, Table of n, a(n) for n=1,...,500

Maple

A061565:=n->floor(mul(k^(1/n), k=1..n)); seq(A061565(n), n=1..60); # Wesley Ivan Hurt, Mar 04 2014

Mathematica

Table[Floor[Product[k^(1/k), {k, n}]], {n, 60}] (* Wesley Ivan Hurt, Mar 04 2014 *)

Prog

(PARI) { default(realprecision, 100); for (n=1, 500, write("b061565.txt", n, " ", floor(prod(k=1, n, k^(1/k)))) ) } \\ Harry J. Smith, Jul 24 2009

Crossrefs

Sequence in context: A290273 A125505 A357381 * A077075 A369570 A190660

Adjacent sequences: A061562 A061563 A061564 * A061566 A061567 A061568

Keyword

easy,nonn

Author

Leroy Quet, May 18 2001

Status

approved