|
%I #16 Dec 09 2022 05:53:37
%S 2,81,15625,5764801,2357947691,137858491849,582622237229761,
%T 799006685782884121,266635235464391245607,250246473680347348787521,
%U 699053619999045038539170241,23122483666661158726686253786801,7386879101213258109624223688656841,863586854220408743801513785592407849
%N a(n) is the n-th prime number raised to the n-th nonprime number.
%F a(n) = A000040(n)^A018252(n).
%e a(3) = 5^6 = 15625 because 5 is the 3rd prime number and 6 is the 3rd nonprime number.
%t Block[{p = Prime@ Range@ 12, k}, k = Complement[Range@ Max@ p, p]; Array[p[[#]]^k[[#]] &, Length@ p]] (* _Michael De Vlieger_, Apr 12 2018 *)
%o (PARI) lista(nn) = my(k=0); for (n=1, nn, if (!isprime(n), k++; print1(prime(k)^n, ", "))) \\ _Michel Marcus_, Apr 12 2018
%Y Cf. A000040, A018252, A086650, A086701.
%K nonn
%O 1,1
%A _Kritsada Moomuang_, Apr 12 2018
%E a(12) corrected and more terms by _Georg Fischer_, Dec 09 2022
|
