%I #2 Mar 31 2012 12:38:17
%S 1,1,5,329,137483613,4509583237978309488810051189
%N a[n_]:=IntegerPart[PartitionsQ[n^n]^(1/n)];
%K nonn
%O 1,3
%A _Vladimir Joseph Stephan Orlovsky_, Dec 03 2008