Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #6 May 09 2018 23:04:04
%S 1,4,9,16,25,6,49,64,81,10,121,12,169,14,15,256,289,18,361,20,21,22,
%T 529,24,625,26,729,28,841,10,961,1024,33,34,35,36,1369,38,39,40,1681,
%U 14,1849,44,45,46,2209,48,2401,50,51,52,2809,54,55,56,57,58,3481,15,3721,62,63,4096,65
%N If n = Product (p_j^k_j) then a(n) = min{p_j^k_j}*max{p_j^k_j}.
%H Ilya Gutkovskiy, <a href="/A304233/a304233.jpg">Logarithmic scatter plot of a(n) up to n=30000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PrimeFactorization.html">Prime Factorization</a>
%F a(n) = A034684(n)*A034699(n).
%F a(p^k) = p^(2*k) where p is a prime.
%F a(A002110(k)) = A100484(k).
%e a(60) = 15 because 60 = 2^2*3*5, min{2^2,3,5} = 3, max{2^2,3,5} = 5 and 3*5 = 15.
%t a[n_] := Min[#[[1]]^#[[2]] & /@FactorInteger[n]] Max[#[[1]]^#[[2]] & /@FactorInteger[n]]; Table[a[n], {n, 65}]
%Y Cf. A000977 (numbers n such that a(n) < n), A002110, A007774 (fixed points), A034684, A034699, A066048, A100484, A141809.
%K nonn
%O 1,2
%A _Ilya Gutkovskiy_, May 08 2018