login
Least number with exactly n divisors that are at most its square root.
8

%I #29 Mar 22 2017 13:53:47

%S 1,4,12,24,36,60,192,120,180,240,576,360,1296,900,720,840,9216,1260,

%T 786432,1680,2880,15360,3600,2520,6480,61440,6300,6720,2359296,5040,

%U 3221225472,7560,46080,983040,25920,10080,206158430208,32400,184320

%N Least number with exactly n divisors that are at most its square root.

%C Least number of identical objects that can be arranged in exactly n ways in a rectangle, modulo rotation.

%C Smallest number which has n distinct unordered factorizations of the form x*y. - _Lekraj Beedassy_, Jan 09 2008

%C Note that an upper bound on a(n) is 3*2^(n-1), which is attained at n = 4 and the odd primes in A005382 (primes p such that 2p-1 is also prime). - _T. D. Noe_, Jul 13 2013

%H Paul Tek, <a href="/A038549/b038549.txt">Table of n, a(n) for n = 1..1000</a>

%H T. Verhoeff, <a href="https://cs.uwaterloo.ca/journals/JIS/trapzoid.html">Rectangular and Trapezoidal Arrangements</a>, J. Integer Sequences, Vol. 2, 1999, #99.1.6.

%F a(n) = min(A005179(2n-1), A005179(2n)).

%t nn = 18; t = Table[0, {nn}]; found = 0; n = 0; While[found < nn, n++; c = Length[Select[Divisors[n], # <= Sqrt[n] &]]; If[c > 0 && c <= nn && t[[c]] == 0, t[[c]] = n; found++]]; t (* _T. D. Noe_, Jul 10 2013 *)

%o (Haskell)

%o import Data.List (elemIndex)

%o import Data.Maybe (fromJust)

%o a038549 = (+ 1) . fromJust . (`elemIndex` a038548_list)

%o -- _Reinhard Zumkeller_, Dec 26 2012

%Y Cf. A038548 (records), A072671, A004778, A086921.

%Y Cf. A227068 (similar, but with limit < sqrt).

%K nonn

%O 1,2

%A _Tom Verhoeff_

%E More terms from _David W. Wilson_.