cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A091748 Generalized Bell numbers B_{6,2}.

This page as a plain text file.
%I A091748 #8 Sep 01 2016 10:22:04
%S A091748 1,43,5083,1160113,432168721,238012552651,181520958432283,
%T A091748 182989529196234433,235492729726705299073,376560458072018837889931,
%U A091748 732162019709408940671604091,1700645336651586566571229542193
%N A091748 Generalized Bell numbers B_{6,2}.
%D A091748 P. Blasiak, K. A. Penson and A. I. Solomon, The general boson normal ordering problem, Phys. Lett. A 309 (2003) 198-205.
%D A091748 M. Schork, On the combinatorics of normal ordering bosonic operators and deforming it, J. Phys. A 36 (2003) 4651-4665.
%F A091748 a(n)=sum(A091746(n, k), k=2..2*n)= sum((1/k!)*product(fallfac(k+4*(j-1), 2), j=1..n), k=2..infinity)/exp(1), n>=1. From eq.(9) of the Blasiak et al. reference with r=6, s=2. fallfac(n, m) := A008279(n, m) (falling factorials triangle). a(0) := 1 may be added.
%t A091748 a[n_] := Sum[Product[FactorialPower[k+4*(j-1), 2], {j, 1, n}]/k!, {k, 2, Infinity}]/E; Table[an = a[n]; Print["a(", n, ") = ", an]; an, {n, 1, 12}] (* _Jean-François Alcover_, Sep 01 2016 *)
%Y A091748 Cf. A072019 ( B_{5, 2}).
%K A091748 nonn,easy
%O A091748 1,2
%A A091748 _Wolfdieter Lang_, Feb 27 2004