|
%I #17 Jan 10 2024 04:59:12
%S 1,2,4,6,12,18,24,30,36,48,60,72,120,144,168,180,240,252,336,360,420,
%T 480,504,540,720,840,900,960,1008,1080,1260,1320,1440,1680,1800,1980,
%U 2160,2520,2640,2880,3360,3600,3780,3960,4200,4320,4620,4680,5040,6300
%N a(1) = 1; for n > 1, a(n) = smallest number > a(n-1) having at least n divisors.
%H Robert Israel, <a href="/A072121/b072121.txt">Table of n, a(n) for n = 1..1000</a>
%p f:= proc(n,a) local k;
%p for k from a+1 do
%p if numtheory:-tau(k) >= n then return k fi
%p od
%p end proc:
%p R:= 1: x:= 1:
%p for n from 2 to 100 do x:= f(n,x); R:= R,x od:
%p R; # _Robert Israel_, Jan 09 2024
%Y Cf. A069654, A061799.
%K nonn
%O 1,2
%A _Vladeta Jovovic_, Jun 19 2002
|
