OFFSET
0,3
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..386
FORMULA
a(n) = n! * [x^n] exp(n*x)*cos(x). - Ilya Gutkovskiy, Apr 10 2018
a(n) ~ cos(1) * n^n. - Vaclav Kotesovec, Jun 08 2019
a(n) = Sum_{j=0..floor(n/2)} binomial(n,2j)*n^(n-2j)*(-1)^j. - Chai Wah Wu, Feb 15 2024
a(n) = (1/2)*((n + i)^n + (n - i)^n) where i is the imaginary unit. - Gerry Martens, Dec 30 2024
MATHEMATICA
Table[ Re[(n + I)^n], {n, 0, 17}] (* Robert G. Wilson v, Jan 23 2006 *)
PROG
(PARI) a(n) = real((n + I)^n); \\ Michel Marcus, Apr 11 2018
(Python)
from math import comb
def A115415(n): return sum(comb(n, j)*n**(n-j)*(-1 if j&2 else 1) for j in range(0, n+1, 2)) # Chai Wah Wu, Feb 15 2024
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Reinhard Zumkeller, Jan 22 2006
EXTENSIONS
More terms from Robert G. Wilson v, Jan 23 2006
STATUS
approved