%I #22 Dec 05 2013 19:55:32
%S 1,2,3,4,9,25,6,8,10,14,16,81,625,2401,14641,12,18,20,28,32,44,64,729,
%T 15625,117649,1771561,4826809,24137569,24,30,40,42,54,56,66,70,36,100,
%U 196,225,256,441,484,676,1089,48,80,112,162,176,208,272,304,368,405
%N Triangle read by rows in which the n-th row contains the first n numbers with n divisors.
%C The first row contains the 1. The 2nd row contains the beginning of A000040. The 3rd contains the beginning of A001248, the 4th through 7th A030513 to A030516. The 8th through 20th rows come from A030626 to A030638. - _R. J. Mathar_, Mar 23 2007
%H T. D. Noe, <a href="/A073915/b073915.txt">Rows n = 1..100 of triangle, flattened</a>
%e 1;
%e 2,3;
%e 4,9,25;
%e 6,8,10,14;
%e 16,81,625,2401,14641;
%e ...
%t d = Table[Length[Divisors[n]], {n, 2000}]; t = {}; n = 0; ok = True; While[ok, n++; If[PrimeQ[n], AppendTo[t, Prime[Range[n]]^(n - 1)], c = Flatten[Position[d, n, 1, n]]; If[Length[c] >= n, AppendTo[t, c], ok = False]]]; Flatten[t] (* _T. D. Noe_, Jun 23 2013 *)
%Y Cf. A073916.
%K nonn,tabl
%O 1,2
%A _Amarnath Murthy_, Aug 18 2002
%E Corrected and extended by _Sascha Kurz_, Jan 28 2003