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

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

Adjacent sequences: A074183 A074184 A074185 * A074187 A074188 A074189

Keyword

nonn

Author

Amarnath Murthy, Aug 31 2002

Extensions

More terms from Ralf Stephan, Mar 25 2003

Status

approved