|
%I #24 Feb 19 2022 01:34:46
%S 1,2,4,6,16,18,64,66,100,112,1024,1035,4096,4288,4624,4632,65536,
%T 65572,262144,262192,263169,269312,4194304,4194306,4477456,4493312,
%U 4498641,4498752,268435456,268437200,1073741824,1073741830,1088472064,1089142784,1107225625
%N a(1) = 1; for n > 1, a(n) = smallest number > a(n-1) having exactly n divisors.
%H Jon E. Schoenfield, <a href="/A069654/b069654.txt">Table of n, a(n) for n = 1..100</a> (first 83 terms from Charles R Greathouse IV)
%o (PARI) print(1" "1); N=1; for(n=2,28, while(numdiv(N)!=n, N++); print(n" "N)) \\ _Charles R Greathouse IV_, Sep 08 2021
%o (Python)
%o from sympy import divisor_count
%o from itertools import count, islice
%o def agen(an=1, startn=1):
%o for n in count(startn):
%o while divisor_count(an) != n: an += 1
%o yield an
%o print(list(islice(agen(), 22))) # _Michael S. Branicky_, Jan 16 2022
%Y Cf. A002182, A005179.
%Y If "exactly" is changed to "at least", we get A072121.
%K nonn
%O 1,2
%A _Amarnath Murthy_, Apr 04 2002
%E Corrected and extended by _Vladeta Jovovic_, Jun 19 2002
%E More terms from _David Wasserman_, Apr 21 2003
%E a(25)-a(28) corrected by _Charles R Greathouse IV_, Sep 14 2021
|
