# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a082949
Showing 1-1 of 1

%I A082949 #29 Jul 18 2018 15:05:41
%S A082949 72,800,6272,30375,247808,750141,1384448,37879808,189267968,235782657,
%T A082949 1313046875,3502727631,4437573632,451508436992,634465620819,
%U A082949 2063731785728,7863818359375,7971951402153,188153927303168,453238525390625,1145440056788109
%N A082949 Numbers of the form p^q * q^p, with distinct primes p and q.
%C A082949 A001221(a(n)) = 2;
%C A082949 A001222(a(n)) = A001414(a(n)) = A020639(a(n)) + A006530(a(n)) = A051904(a(n)) + A051903(a(n));
%C A082949 A020639(a(n)) = A051904(a(n));
%C A082949 A006530(a(n)) = A051903(a(n)).
%H A082949 Reinhard Zumkeller, <a href="/A082949/b082949.txt">Table of n, a(n) for n = 1..1000</a>
%e A082949 2^7 * 7^2 = 128*49 = 6272, therefore 6272 is in the sequence.
%t A082949 Take[Union[Select[Flatten[Table[If[p != q, Prime[p]^Prime[q]*Prime[q]^Prime[p]], {p, 100}, {q, 100}]], IntegerQ]], 30] (* _Alonso del Arte_, Oct 28 2005 *)
%t A082949 Select[Range[10! ],Length[FactorInteger[ # ]]==2&&FactorInteger[ # ][[1,1]]==FactorInteger[ # ][[2,2]]&&FactorInteger[ # ][[1,2]]==FactorInteger[ # ][[2,1]]&] (* _Vladimir Joseph Stephan Orlovsky_, Apr 23 2010 *)
%t A082949 With[{nn=30},Take[Union[First[#]^Last[#] Last[#]^First[#]&/@ Subsets[ Prime[Range[nn]],{2}]],nn]] (* _Harvey P. Dale_, Aug 19 2012 *)
%o A082949 (PARI) term(p,q)=p^q*q^p;
%o A082949 l=listcreate(465); for(m=1,30, for(n=m+1,31, listput(l,term(prime(m), prime(n))))); listsort(l) \\ _Rick L. Shepherd_, Sep 07 2003
%o A082949 (Haskell)
%o A082949 import Data.Set (singleton, deleteFindMin, insert)
%o A082949 a082949 n = a082949_list !! (n-1)
%o A082949 a082949_list = f $ singleton (2 ^ 3 * 3 ^ 2, 2, 3) where
%o A082949    f s = y : f (if p' < q then insert (p' ^ q * q ^ p', p', q) s'' else s'')
%o A082949          where s'' = insert (p ^ q' * q' ^ p, p, q') s'
%o A082949                p' = a151800 p; q' = a151800 q
%o A082949                ((y, p, q), s') = deleteFindMin s
%o A082949 -- _Reinhard Zumkeller_, Feb 07 2015
%Y A082949 Cf. A053810, A006881, A051674.
%Y A082949 Cf. A098096, numbers of the form 2^p * p^2.
%Y A082949 Cf. A001221, A001222, A001414, A020639, A006530, A051903, A051904.
%Y A082949 Cf. A151800.
%K A082949 nonn
%O A082949 1,1
%A A082949 _Reinhard Zumkeller_, May 26 2003
%E A082949 Corrected and extended by _Rick L. Shepherd_, Sep 07 2003

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE