|
|
A230960
|
|
Boustrophedon transform of factorials, cf. A000142.
|
|
10
|
|
|
1, 2, 5, 17, 73, 381, 2347, 16701, 134993, 1222873, 12279251, 135425553, 1627809401, 21183890469, 296773827547, 4453511170517, 71275570240417, 1211894559430065, 21816506949416611, 414542720924028441, 8291224789668806345, 174120672081098057341
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
J. Millar, N. J. A. Sloane and N. E. Young, A new operation on sequences: the Boustrophedon transform, J. Combin. Theory, 17A 44-54 1996 (Abstract, pdf, ps).
|
|
FORMULA
|
E.g.f.: (tan(x)+sec(x))/(1-x) = (1- 12*x/(Q(0)+6*x+3*x^2))/(1-x), where Q(k) = 2*(4*k+1)*(32*k^2+16*k-x^2-6) - x^4*(4*k-1)*(4*k+7)/Q(k+1) ; (continued fraction). - Sergei N. Gladkovskii, Nov 18 2013
|
|
MATHEMATICA
|
T[n_, k_] := (n!/k!) SeriesCoefficient[(1 + Sin[x])/Cos[x], {x, 0, n - k}];
a[n_] := Sum[T[n, k] k!, {k, 0, n}];
|
|
PROG
|
(Haskell)
a230960 n = sum $ zipWith (*) (a109449_row n) a000142_list
(Python)
from itertools import count, islice, accumulate
def A230960_gen(): # generator of terms
blist, m = tuple(), 1
for i in count(1):
yield (blist := tuple(accumulate(reversed(blist), initial=m)))[-1]
m *= i
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|