Search: id:A061017 Results 1-1 of 1 results found. %I A061017 %S A061017 1,2,2,3,3,4,4,4,5,5,6,6,6,6,7,7,8,8,8,8,9,9,9,10,10,10,10,11,11,12,12, %T A061017 12,12,12,12,13,13,14,14,14,14,15,15,15,15,16,16,16,16,16,17,17,18,18, %U A061017 18,18,18,18,19,19,20,20,20,20,20,20,21,21,21,21,22,22,22,22,23,23,24 %N A061017 List in which n appears d(n) times, where d(n) [A000005] is the number of divisors of n. %C A061017 The union of N, 2N, 3N, ..., where N = {1,2,3,4,5,6,...}. In other words, the numbers {m*n, m>=1, n>=1} sorted into nondecreasing order. %C A061017 Considering the maximal rectangle in each of the Ferrers graphs of partitions of n, a(n) is the smallest such maximal rectangle; a(n) is also an inverse of A006218. - Henry Bottomley (se16(AT)btinternet.com), Mar 11 2002 %C A061017 The numbers in A003991 arranged in numerical order. - Matthew Vandermast (ghodges14(AT)comcast.net), Feb 28 2003 %H A061017 N. J. A. Sloane, Table of n, a(n) for n = 1..7069 %F A061017 a(n) >= pi(n+1) for all n; a(n) >= pi(n) + 1 for all n >= 24 (cf. A098357, A088526, A006218, A052511). - N. J. A. Sloane (njas(AT)research.att.com), Oct 22 2008 %p A061017 with(numtheory); t1:=[]; for i from 1 to 1000 do for j from 1 to tau(i) do t1:=[op(t1),i]; od: od: t1:=sort(t1); %t A061017 Flatten[Table[Table[n, {Length[Divisors[n]]}], {n, 1, 30}]] %o A061017 (PARI) a(n)=if(n<0,0,t=1;while(sum(k=1,t,floor(t/k))