login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A129716 n! times partial sum of the sequence (1,Bernoulli numbers). 2
1, 2, 3, 10, 40, 196, 1176, 8352, 66816, 589248, 5892480, 67841280, 814095360, 9007096320, 126099348480, 3417110323200, 54673765171200, -1593137026252800, -28676466472550400, 6142121597716070400, 122842431954321408000, -24453765000305786880000 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..300 (terms 0..25 from R. J. Mathar)
FORMULA
a(n) = n!*(1 + Sum_{i=0..n-1} Bernoulli(i)). - R. J. Mathar, Feb 20 2008
EXAMPLE
The sequence of 1 followed by Bernoulli numbers is 1, 1, -1/2, 1/6,0, -1/30, 0, 1/42, .... (Cf. A027641, A027642). Its partial sums are 1, 2, 3/2, 5/3, 5/3, ... Multiplication by n! for n=0,1,2,3,... yields a(n).
MAPLE
A129716 := proc(n) n!*(1+add(bernoulli(i), i=0..n-1)); end: seq(A129716(n), n=0..40) ; # R. J. Mathar, Feb 20 2008
MATHEMATICA
max = 21; Accumulate[ Table[ If[n == 0, 1, BernoulliB[n-1]], {n, 0, max}]]*Range[0, max]! (* Jean-François Alcover, Mar 04 2013 *)
PROG
(PARI) vector(26, n, (n-1)!*(1 + sum(j=0, n-2, bernfrac(j))) ) \\ G. C. Greubel, Dec 03 2019
(Magma) [1] cat [Factorial(n)*(1 + (&+[Bernoulli(k): k in [0..n-1]]) ): n in [1..25]]; // G. C. Greubel, Dec 03 2019
(Sage) [factorial(n)*(1 + sum(bernoulli(k) for k in (0..n-1)) ) for n in (0..25)] # G. C. Greubel, Dec 03 2019
(GAP) List([0..25], n-> Factorial(n)*(1 + Sum([0..n-1], j-> Bernoulli(j)) ) ); # G. C. Greubel, Dec 03 2019
CROSSREFS
Sequence in context: A008980 A064183 A050381 * A032293 A059733 A037390
KEYWORD
sign
AUTHOR
Paul Curtz, Jun 02 2007
EXTENSIONS
More terms from R. J. Mathar, Feb 20 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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 08:47 EDT 2024. Contains 371267 sequences. (Running on oeis4.)