|
%I #7 Oct 21 2019 17:51:45
%S 16,729,390625,40353607,25937424601,23298085122481,168377826559400929,
%T 15181127029874798299,6132610415680998648961,
%U 210457284365172120330305161,671790528819082282036142601601,855531895666462872887391390111637,302862043149743582494593171234930481
%N n-th prime number raised to the n-th composite number.
%C This sequence arises as a result of exponentiation with the terms of the sequence A000040 used as the base and the terms of the sequence A002808 used as the exponent.
%F a(n) = A000040(n)^A002808(n).
%e a(3)=5^8=390625 because 5 is the 3rd prime number and 8 is the 3rd composite number.
%t p2c[n_]:=Module[{prs=Prime[Range[n]],cmps},cmps=Take[Complement[Range[4, Last[prs]], prs],n];First[#]^Last[#]&/@Thread[{prs,cmps}]]; p2c[20] (* _Harvey P. Dale_, Jan 20 2012 *)
%Y Cf. A000040, A002808, A086650.
%K easy,nonn
%O 1,1
%A Christopher M. Tomaszewski (cmt1288(AT)comcast.net), Jul 28 2003
%E Corrected and extended by _Harvey P. Dale_, Jan 20 2012
| 