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
KEYWORD
nonn
AUTHOR
Franz Vrabec, Jan 01 2009
EXTENSIONS
More terms from Alois P. Heinz, Feb 16 2013
STATUS
approved