A163395 a(n) = (n-th even nonprime)^(n-th even number).

1, 16, 1296, 262144, 100000000, 61917364224, 56693912375296, 72057594037927936, 121439531096594251776, 262144000000000000000000, 705429498686404044207947776, 2315513501476187716057433112576

Offset

1,2

Comments

Here n-th even nonprime = A163300(n), n-th even number = A005843(n), (A014076 U A163300 = A141468).

Links

G. C. Greubel, Table of n, a(n) for n = 1..100

Formula

a(n) = A163300(n)^A005843(n).

Example

a(1) = 0^0 = 1, a(2) = 4^2 = 16, a(3) = 6^4 = 1296.

Maple

A163300 := proc(n) if n = 1 then 0; else for a from procname(n-1)+2 by 2 do if not isprime(a) then return a; end if; end do; end if; end proc: A005843 := proc(n) 2*n ; end: A163395 := proc(n) A163300(n)^A005843(n-1) ; end: seq(A163395(n), n=1..13) ; # R. J. Mathar, Oct 14 2009

Mathematica

Join[{1}, Table[(2*(n - 1 + Mod[(n + 1), n]))^(2 n - 2), {n, 2, 10}]] (* G. C. Greubel, Dec 21 2016 *)
With[{nn=30}, Range[2, nn, 2]^Range[0, nn-2, 2]] (* Harvey P. Dale, Nov 09 2017 *)

Crossrefs

Cf. A005843, A014076, A141468, A163300.

Sequence in context: A369169 A307814 A186420 * A134375 A321583 A057994

Adjacent sequences: A163392 A163393 A163394 * A163396 A163397 A163398

Keyword

nonn

Author

Juri-Stepan Gerasimov, Jul 26 2009

Extensions

Extended by R. J. Mathar, Oct 14 2009

Status

approved