[go: up one dir, main page]

login
A324555
a(n) = the smallest number m such that gcd(tau(m), pod(m)) = n where tau(k) = the number of the divisors of k (A000005) and pod(k) = the product of the divisors of k (A007955).
2
1, 2, 9, 6, 400, 12, 3136, 24, 36, 80, 123904, 60, 692224, 448, 2025, 120, 18939904, 180, 94633984, 240, 35721, 11264, 2218786816, 360, 10000, 53248, 900, 1344, 225754218496, 720, 1031865892864, 840, 7144929, 1114112, 1960000, 1260, 94076963651584, 4980736
OFFSET
1,2
COMMENTS
a(n) = the smallest number m such that A306671(m) = n.
If a(17) exists, it must be bigger than 10^7.
EXAMPLE
For n=3; a(3) = 9 because gcd(tau(9), pod(9)) = gcd (3, 27) = 3 and 9 is the smallest.
MATHEMATICA
Array[Block[{m = 1}, While[GCD[DivisorSigma[0, m], Times @@ Divisors@ m] != #, m++]; m] &, 16] (* Michael De Vlieger, Mar 24 2019 *)
PROG
(Magma) [Min([n: n in[1..10^6] | GCD(NumberOfDivisors(n), &*[d: d in Divisors(n)]) eq k]): k in [1..16]]
(PARI) a(n) = {my(k=1, vk = divisors(k)); while(gcd(#vk, vecprod(vk)) != n, k++; vk = divisors(k)); k; } \\ Michel Marcus, Mar 06 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Mar 05 2019
EXTENSIONS
a(17)-a(38) from Jon E. Schoenfield, Mar 07 2019
STATUS
approved