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 A176031 #8 Jun 02 2025 02:48:48
%S A176031 1,4,27,16,3125,46656,823543,64,729,10000000000,285311670611,2985984,
%T A176031 302875106592253,11112006825558016,437893890380859375,256,
%U A176031 827240261886336764177,34012224,1978419655660313589123979
%N A176031 a(n) = n^rad(n).
%C A176031 rad(n) is the product of the primes dividing n (A007947).
%H A176031 T. D. Noe, <a href="/A176031/b176031.txt">Table of n, a(n) for n = 1..100</a>
%F A176031 a(n)= n^A007947(n).
%e A176031 a(1) = 1^1 = 1 ; a(2) = 2^2 = 4 ; a(3) = 3^3 = 27 ; a(4) = 4^2 = 16.
%p A176031 with(numtheory):for n from 1 to 200 do:t1:= ifactors(n)[2] : p :=mul(t1[i][1], i=1..nops(t1)):x:=n^p:print(x):od:
%t A176031 Table[n^(Times @@ Transpose[FactorInteger[n]][[1]]), {n, 20}]
%Y A176031 Cf. A007947.
%K A176031 nonn,easy
%O A176031 1,2
%A A176031 _Michel Lagneau_, Apr 06 2010