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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A153760 Number of degree-n permutations of order exactly 7. 3
0, 0, 0, 0, 0, 0, 720, 5760, 25920, 86400, 237600, 570240, 1235520, 892045440, 13348249200, 106757164800, 604924594560, 2722120577280, 10344007402560, 34479959558400, 24928970490633600, 546446134633639680, 6281586217487489040, 50248618811434961280 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,7

LINKS

Alois P. Heinz, Table of n, a(n) for n = 1..200

FORMULA

E.g.f.: -exp(x)+exp(x+1/7*x^7). - Alois P. Heinz, Feb 16 2013

MAPLE

a:= proc(n) option remember;

      `if`(n<7, 0, a(n-1)+(1+a(n-7))*(n-1)!/(n-7)!)

    end:

seq(a(n), n=1..30);  # Alois P. Heinz, Feb 16 2013

MATHEMATICA

Rest[CoefficientList[Series[-Exp[x] + Exp[x + 1/7*x^7], {x, 0, 25}], x]*Range[0, 25]!] (* G. C. Greubel, Aug 27 2016 *)

PROG

(PARI) seq(n)={Vec(serlaplace(-exp(x + O(x*x^n)) + exp(x + x^7/7 + O(x*x^n))), -n)} \\ Andrew Howroyd, Jul 02 2018

CROSSREFS

Column k=7 of A057731. - Alois P. Heinz, Feb 16 2013

Sequence in context: A052799 A229569 A179964 * A029574 A119540 A052784

Adjacent sequences:  A153757 A153758 A153759 * A153761 A153762 A153763

KEYWORD

nonn

AUTHOR

Franz Vrabec, Jan 01 2009

EXTENSIONS

More terms from Alois P. Heinz, Feb 16 2013

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 October 14 02:29 EDT 2019. Contains 327995 sequences. (Running on oeis4.)