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!)
A174993 a(n) = -Floor[n/2]! + Sum[(Eulerian[n - j, j]), {j, 0, Floor[n/2]}] 0
0, 0, 1, 4, 11, 36, 119, 443, 1718, 7245, 32313, 153730, 771677, 4088053, 22741818, 132596893, 807840501, 5132194862, 33924901021, 232905225561, 1657803862422, 12215420390037, 93042805475305, 731622623516178, 5931914758691917, 49535825763153373, 425606813712984146, 3758735172560999933, 34089943206777076429, 317245175458777517030 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,4
LINKS
FORMULA
a(n)=-Floor[n/2]! + Sum[(Eulerian[n - j, j]), {j, 0, Floor[n/2]}]=A000800(n)-Floor[(n-1)/2]!
MATHEMATICA
<<Combinatorica`
a = Table[-Floor[n/2]! + Sum[(Eulerian[n - j, j]), {j, 0, Floor[n/2]}], {n, 1, 30}]
CROSSREFS
Cf. A000800.
Sequence in context: A106640 A109268 A256960 * A149238 A149239 A149240
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Dec 02 2010
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 July 14 20:49 EDT 2024. Contains 374323 sequences. (Running on oeis4.)