Voozh

A074186

a(1) = 1; a(n) is the largest number such that the product of all previous terms is < n^n.

1, 3, 8, 10, 13, 14, 18, 21, 23, 26, 28, 32, 34, 36, 40, 42, 45, 48, 50, 53, 56, 58, 61, 64, 67, 69, 72, 75, 77, 81, 83, 85, 89, 91, 93, 97, 99, 102, 105, 107, 110, 113, 116, 118, 121, 123, 127, 129, 132, 134, 138, 140, 142, 146, 148, 151, 153, 157, 159, 162, 164

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Table of n, a(n) for n=1..61.

MATHEMATICA

Module[{lst={1, 3, 8}}, Do[AppendTo[lst, Floor[((Length[lst]+1)^(Length[lst]+1))/ Times@@lst]], {60}]; lst] (* Harvey P. Dale, Aug 17 2012 *)

PROG

(PARI) p=1; print1("1, "); for(n=2, 100, t=floor((n^n-1)/p); print1(t", "); p=p*t)

CROSSREFS

Cf. A074185.

Sequence in context: A351872 A226641 A212966 * A064147 A287573 A122529