|
|
A330518
|
|
Expansion of e.g.f. Product_{k>=1} (sec(x^k) + tan(x^k)).
|
|
0
|
|
|
1, 1, 3, 14, 77, 536, 4471, 41474, 437737, 5206120, 67098091, 944705662, 14495605277, 237203399044, 4162492013135, 78089687760842, 1545654292223825, 32385137447167280, 716473190874986323, 16611710217097325366, 404119023609893926405
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
MATHEMATICA
|
nmax = 20; CoefficientList[Series[Product[(Sec[x^k] + Tan[x^k]), {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!
|
|
CROSSREFS
|
Cf. A000111, A203716, A229263, A270294, A270662, A270663, A270664, A270665, A270666, A330514, A330515, A330516, A330517.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|