A134715 Odd Bell numbers.
1, 1, 5, 15, 203, 877, 21147, 115975, 4213597, 27644437, 1382958545, 10480142147, 682076806159, 5832742205057, 474869816156751, 4506715738447323, 445958869294805289, 4638590332229999353, 545717047936059989389, 6160539404599934652455, 846749014511809332450147, 10293358946226376485095653
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..203 [Invalid terms a(21) and a(102) removed by _Georg Fischer_, Nov 03 2024]
Programs
-
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 *) -
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
Formula
Extensions
More terms from Omar E. Pol, Dec 10 2008
Comments