OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..500
FORMULA
a(n) = Sum_{k=0..floor(n/2)} n!/(n-2*k)!/k!/2^k*(C(n-(n mod 2), 2*k) mod 2). - Vladeta Jovovic, Nov 06 2003
MAPLE
a:= n-> n!*add((binomial(n-(n mod 2), 2*k) mod 2)/((n-2*k)!*k!*2^k),
k=0..floor(n/2)):
seq(a(n), n=1..30); # Alois P. Heinz, May 01 2013
MATHEMATICA
a[n_] := n!*Sum[Mod[Binomial[n-Mod[n, 2], 2*k], 2]/((n-2*k)!*k!*2^k), {k, 0, Floor[n/2]}]; Table[a[n], {n, 1, 30}] (* Jean-François Alcover, Feb 17 2014, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Yuval Dekel (dekelyuval(AT)hotmail.com), Nov 02 2003
EXTENSIONS
More terms from Vladeta Jovovic, Nov 03 2003
STATUS
approved