login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A129724 a(0) = 1; then a(n) = n!*(1-(-1)^n*Bernoulli(n-1)). 3
1, 2, 3, 7, 24, 116, 720, 5160, 40320, 350784, 3628800, 42940800, 479001600, 4650877440, 87178291200, 2833294464000, 20922789888000, -2166903606067200, 6402373705728000, 6808619561103360000, 2432902008176640000, -26982365129174827008000, 1124000727777607680000 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

LINKS

Table of n, a(n) for n=0..22.

MAPLE

f:=proc(n) if n=0 then RETURN(1); fi; if n mod 2 = 0 then RETURN(n!*(1-bernoulli(n-1))); else RETURN(n!*(1+bernoulli(n-1))); fi; end;

MATHEMATICA

a[0] = 1; a[n_] := n!*(1-(-1)^n*BernoulliB[n-1]); Table[a[n], {n, 0, 22}] (* Jean-Fran├žois Alcover, Sep 16 2013 *)

CROSSREFS

Cf. A129825, A129826, A027641/A027642, A051716/A051717.

Sequence in context: A102710 A048824 A099073 * A308161 A094697 A095910

Adjacent sequences:  A129721 A129722 A129723 * A129725 A129726 A129727

KEYWORD

sign

AUTHOR

Paul Curtz, Jun 02 2007

EXTENSIONS

Edited with simpler definition by N. J. A. Sloane, May 25 2008

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 21 04:41 EST 2019. Contains 329350 sequences. (Running on oeis4.)