%I #11 Apr 27 2021 11:50:59
%S 1,3,8,10,13,14,18,21,23,26,28,32,34,36,40,42,45,48,50,53,56,58,61,64,
%T 67,69,72,75,77,81,83,85,89,91,93,97,99,102,105,107,110,113,116,118,
%U 121,123,127,129,132,134,138,140,142,146,148,151,153,157,159,162,164
%N a(1) = 1; a(n) is the largest number such that the product of all previous terms is < n^n.
%t 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 *)
%o (PARI) p=1:print1("1,"):for(n=2,100,t=floor((n^n-1)/p):print1(t","):p=p*t)
%Y Cf. A074185.
%K nonn
%O 1,2
%A _Amarnath Murthy_, Aug 31 2002
%E More terms from _Ralf Stephan_, Mar 25 2003