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
KEYWORD
nonn
AUTHOR
Herman Jamke (hermanjamke(AT)fastmail.fm), Sep 25 2006
STATUS
approved