login
Least number with exactly n nonunitary divisors.
7

%I #17 Jul 18 2019 07:44:48

%S 1,4,8,16,24,36,48,256,72,1024,180,144,216,16384,288,65536,360,576,

%T 3072,900,864,1296,720,2304,1080,67108864,2592,268435456,1440,9216,

%U 196608,5184,2160,17179869184,2880,36864,10368,3600,6300,1099511627776,4320,20736,6480

%N Least number with exactly n nonunitary divisors.

%H Amiram Eldar, <a href="/A309181/b309181.txt">Table of n, a(n) for n = 0..100</a>

%F A048105(a(n)) = n and A048105(k) != n for all k < a(n).

%F a(n) <= 2^(n+1).

%t nud[n_] := DivisorSigma[0, n] - 2^PrimeNu[n]; m = 24; c = 0; s = Table[0, {m + 1}]; k = 1; While[c < m + 1, n = nud[k]; If[n <= m && s[[n + 1]] == 0, c++; s[[n + 1]] = k]; k++]; s

%o (PARI) nnud(n) = numdiv(n) - 2^omega(n); \\ A048105

%o a(n) = my(k=1); while (nnud(k) != n, k++); k; \\ _Michel Marcus_, Jul 17 2019

%Y Cf. A005179, A048105, A309141.

%K nonn

%O 0,2

%A _Amiram Eldar_, Jul 15 2019