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

Author

Juri-Stepan Gerasimov, Jul 26 2009

Keywords

• nonn

Comments

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

Examples

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

Links

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

Crossrefs

Cf. A005843, A014076, A141468, A163300.

Programs

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 *)

Formula

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

Extensions

Extended by R. J. Mathar, Oct 14 2009