OFFSET
1,3
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..203
FORMULA
MAPLE
a := n -> combinat:-bell(n-1 + floor((n-1)/2)):
seq(a(n), n=1..18); # Peter Luschny, Nov 03 2015
MATHEMATICA
Table[BellB[(6 n-7-(-1)^n)/4], {n, 1, 20}] (* Vladimir Reshetnikov, Nov 05 2015 *)
PROG
(PARI) a000110(n) = n!*polcoeff(exp(exp(x+x*O(x^n))-1), n);
for(n=0, 30, if(a000110(n)%2 == 1, print1(a000110(n) ", "))) \\ Altug Alkan, Nov 02 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Nov 11 2007
EXTENSIONS
More terms from Omar E. Pol, Dec 10 2008
STATUS
approved