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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A101611 a(n) = n! * Sum_{k=ceiling(n/2)..n} 1/k. 4
1, 3, 5, 26, 94, 684, 3828, 35664, 270576, 3068640, 29400480, 392722560, 4546558080, 69878833920, 948550176000, 16484477184000, 256697973504000, 4976250951168000, 87435019510272000, 1870345490614272000 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Table of n, a(n) for n=1..20.

FORMULA

E.g.f: (log(1 - x) - x*log(1 - x^2))/(x - 1). - Benedict W. J. Irwin, Apr 25 2017

MATHEMATICA

Rest@Table[CoefficientList[Series[(Log[1-x]-x*Log[1-x^2])/(x-1), {x, 0, 20}], x][[n]](n-1)!, {n, 1, 20}] (* Benedict W. J. Irwin, Apr 25 2017 *)

PROG

(PARI) a(n) = n! * sum(k=ceil(n/2), n, 1/k); \\ Michel Marcus, Apr 25 2017

(Python)

import math

from sympy import factorial

def a(n): return factorial(n)*sum([1/k for k in xrange(int(math.ceil(n/2)), n + 1)]) # Indranil Ghosh, Apr 25 2017

CROSSREFS

Cf. A101609, A101610, A101612, A101613, A000254, A046673, A052517.

Sequence in context: A140127 A226318 A154143 * A268409 A182030 A282141

Adjacent sequences:  A101608 A101609 A101610 * A101612 A101613 A101614

KEYWORD

nonn,easy

AUTHOR

Ralf Stephan, Dec 10 2004

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 20 02:07 EST 2018. Contains 299357 sequences. (Running on oeis4.)