OFFSET
0,4
COMMENTS
Old name was: A polynomial expansion: p(x,t)=-Exp[t]*(-1 + Exp[x])/(-1 + Exp[t]).
The expansion is the solution for integer q of: q*Exp[x*t]/(q - 1 + Exp[x]) - Exp[t*(1 + x)] = 0. (See the Mathematica program.) That result is a generalized Euler number in q as a Pascal expansion. For higher Sierpinski-Pascal levels (Eulerian and MacMahon) this results in polynomials.
For n >= 9, a(n) is divisible by 2*10^(floor(n/5)-1). - G. C. Greubel, Nov 06 2015
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..200
MAPLE
A178235 := n -> 2*(n+2)!*(Zeta(-2*n)-Zeta(-n)); seq(A178235(n), n=0..24); # Peter Luschny, Jul 14 2013
MATHEMATICA
p[t_] = -Exp[t]*(-1 + Exp[x])/(-1 + Exp[t]); Table[ FullSimplify[ExpandAll[(2*(n + 2)!n!/(1 - Exp[x]))*SeriesCoefficient[ Series[p[t], {t, 0, 30}], n]]], {n, 0, 30}]
CROSSREFS
KEYWORD
sign
AUTHOR
Roger L. Bagula, May 23 2010
EXTENSIONS
Edited, new name and a(0) changed to 0 by Peter Luschny, Jul 14 2013
STATUS
approved