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 A082950 #16 May 16 2025 07:25:42
%S A082950 0,1,1,4,1,1,9,8,1,1,16,1,1,1,32,27,1,1,25,1,1,1,1,128,1,1,1,36,1,1,1,
%T A082950 1,64,1,1,1,1,1,1,1,1,2048,243,1,49,1,1,1,1,1,1,1,1,8192,1,1,1,1,1,1,
%U A082950 1,1,1,1,1,1,1,1,125,1,64,1,1,1,1,1,1,1,131072,1,1,1,1,1,1,1,2187,1,1,1,1
%N A082950 Power base and exponent of n-th prime power exchanged.
%F A082950 a(n) = A025474(n)^A025473(n) while A025473(n)^A025474(n) = A000961(n).
%F A082950 a(n) = 1 iff A000961(n) is prime.
%t A082950 s[n_] := Module[{f = FactorInteger[n]}, If[Length[f] == 1, f[[1, 2]]^f[[1, 1]], Nothing]]; s[1] = 0; Array[s, 250] (* _Amiram Eldar_, May 16 2025 *)
%Y A082950 Cf. A000961, A025473, A025474.
%K A082950 nonn
%O A082950 1,4
%A A082950 _Reinhard Zumkeller_, May 26 2003
%E A082950 a(71) and following corrected by _Georg Fischer_, Dec 09 2022