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.

A154107 A000110 / A014182: (A154107 convolved with A014182 = Bell numbers).

This page as a plain text file.
%I A154107 #9 Jul 26 2021 08:28:55
%S A154107 1,1,3,5,15,61,207,881,4491,21493,117543,710021,4266279,28107745,
%T A154107 196120515,1397747525,10648637151,84304440685,688868927151,
%U A154107 5913133211249,52348170504555,479326416322933,4557380168574135,44560107679838549,449806788855058407,4680686977970550721
%N A154107 A000110 / A014182: (A154107 convolved with A014182 = Bell numbers).
%C A154107 A000110 / A014182 = (the eigensequence of Pascal's triangle) /
%C A154107 (eigensequence of the inverse of Pascal's triangle).
%C A154107 A014182 = expansion of exp(1-x-exp(-x)).
%F A154107 A000110 / A014182 = (1, 1, 2, 5, 15, 52, 203,...) / (1, 0, -1, 1, 2, -9, 9, 50,...).
%e A154107 A000110 = 52 = (1, 1, 3, 5, 15, 61) convolved with (1, 0, -1, 1, 2, -9)
%e A154107 = (61 - 5 + 3 + 2 - 9)
%t A154107 nmax = 30; Table[a[j]/.SolveAlways[Table[Sum[a[k]*Sum[(-1)^(n-k-m)*StirlingS2[n-k+1, m+1], {m, 0, n-k}], {k, 0, n}]==BellB[n], {n, 0, nmax}], a][[1]], {j, 0, nmax}] (* _Vaclav Kotesovec_, Jul 26 2021 *)
%Y A154107 Cf. A000110, A014182.
%K A154107 nonn
%O A154107 0,3
%A A154107 _Gary W. Adamson_, Jan 04 2009
%E A154107 a(12) corrected and more terms added from _Vaclav Kotesovec_, Jul 26 2021