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 A280582 #12 Sep 08 2022 08:46:18 %S A280582 1,2,3,64,5,10077696,7,2097152,729,1000000000,11, %T A280582 2116471057875484488839167999221661362284396544,13,20661046784, %U A280582 38443359375,36028797018963968,17,52655678627806560751363688397557640770141543227981824,19 %N A280582 a(n) = the product of divisors of product of divisors of n. %F A280582 a(n) = A007955(A007955(n)). %F A280582 For p = primes (A000040); a(p) = p. %F A280582 For c = composites (A002808); a(c) = perfect powers of the form m^k where m > 1 and k >= 2 (terms of A001597). %e A280582 For n = 4; a(n) = product of divisors (1*2*4) = 1*2*4*8 = 64. %t A280582 Table[Nest[Times @@ Divisors@ # &, n, 2], {n, 19}] (* _Michael De Vlieger_, Jan 06 2017 *) %o A280582 (Magma) [&*[d: d in Divisors(&*[d: d in Divisors(n)])]: n in [1..100]] %Y A280582 Cf. A000040, A001597, A002808, A007955, A280581. %K A280582 nonn %O A280582 1,2 %A A280582 _Jaroslav Krizek_, Jan 06 2017