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
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Aug 31 2002
EXTENSIONS
More terms from Ralf Stephan, Mar 25 2003
STATUS
approved