A123051 a(2*n-1) = (4*n-3)^(4*n-2) and a(2*n) = (4*n)^(4*n-1), n=1,2,...

1, 64, 15625, 2097152, 3486784401, 743008370688, 3937376385699289, 1152921504606846976, 14063084452067724991009, 5242880000000000000000000, 122694327386105632949003612841, 55572324035428505185378394701824

Offset

1,2

Links

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

Sergio Silva, Teste Numérico.

Example

Sequence gives the following terms: 1^2, 4^3, 5^6, 7^8, 9^10, 12^11, ...

Mathematica

a[n_]:= a[n]= If[EvenQ[n], (2*n)^(2*n-1), (2*n-1)^(2*n)];
Table[a[n], {n, 20}] (* G. C. Greubel, Jul 20 2021 *)

Prog

(PARI) for(k=1, 10, print1((4*k-3)^(4*k-2), ", ", (4*k)^(4*k-1), ", "))
(Sage)
def a(n): return (2*n)^(2*n-1) if (n%2==0) else (2*n-1)^(2*n)
[a(n) for n in (1..20)] # G. C. Greubel, Jul 20 2021

Crossrefs

Sequence in context: A135788 A016794 A264058 * A064068 A220853 A013781

Adjacent sequences: A123048 A123049 A123050 * A123052 A123053 A123054

Keyword

nonn

Author

Herman Jamke (hermanjamke(AT)fastmail.fm), Sep 25 2006

Status

approved