login
A074186
a(1) = 1; a(n) is the largest number such that the product of all previous terms is < n^n.
1
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
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
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Aug 31 2002
EXTENSIONS
More terms from Ralf Stephan, Mar 25 2003
STATUS
approved