This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A322672 #24 Jun 09 2025 14:29:08
%S A322672 1,1,1,2,1,6,1,16,3,10,1,1728,1,14,15,1024,1,5832,1,8000,21,22,1,
%T A322672 191102976,5,26,81,21952,1,24300000,1,1048576,33,34,35,470184984576,1,
%U A322672 38,39,4096000000,1,130691232,1,85184,91125,46,1,64925062108545024,7,125000,51
%N A322672 a(n) = Product_{d|n} (pod(d)/d) where pod(k) is the product of the divisors of k (A007955).
%F A322672 a(n) = n for n = 1 and squarefree semiprimes (A006881).
%e A322672 For n = 6; a(6) = pod(1)/1 * pod(2)/2 * pod(3)/3 * pod(6)/6 = 1/1 * 2/2 * 3/3 * 36/6 = 6.
%t A322672 Array[Product[Apply[Times, Divisors@ d]/d, {d, Divisors@ #}] &, 51] (* _Michael De Vlieger_, Jan 19 2019 *)
%o A322672 (Magma) [&*[&*[c: c in Divisors(d)] / d: d in Divisors(n)]: n in [1..100]];
%o A322672 (PARI) a(n) = my(x=1); fordiv(n, d, x*=vecprod(divisors(d))/d); x; \\ _Michel Marcus_, Dec 23 2018
%Y A322672 Cf. A006881, A007955, A322671.
%K A322672 nonn
%O A322672 1,4
%A A322672 _Jaroslav Krizek_, Dec 23 2018