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.
%I A346654 #14 Aug 03 2021 21:33:37
%S A346654 1,2,94,12351,3188340,1362057155,869725707522,775929767223352,
%T A346654 921839901090823112,1406921223577401454239,2682502220690005671884710,
%U A346654 6248503930824315386034050253,17460431497766377837983159782652,57647207262184459310081410522242310,222006095854149044448961838142906736554
%N A346654 a(n) = Bell(2*n,n).
%H A346654 Alois P. Heinz, <a href="/A346654/b346654.txt">Table of n, a(n) for n = 0..198</a>
%F A346654 a(n) ~ 4^n * exp((2/LambertW(2) - 3)*n) * n^(2*n) / (sqrt(1 + LambertW(2)) * LambertW(2)^(2*n)).
%F A346654 a(n) = A189233(2n,n) = A292860(2n,n). - _Alois P. Heinz_, Jul 27 2021
%p A346654 b:= proc(n, k) option remember; `if`(n=0, 1,
%p A346654 (1+add(binomial(n-1, j-1)*b(n-j, k), j=1..n-1))*k)
%p A346654 end:
%p A346654 a:= n-> b(2*n, n):
%p A346654 seq(a(n), n=0..14); # _Alois P. Heinz_, Jul 27 2021
%t A346654 Table[BellB[2*n, n], {n, 0, 20}]
%Y A346654 Cf. A000110, A189233, A242817, A292860, A346655.
%K A346654 nonn
%O A346654 0,2
%A A346654 _Vaclav Kotesovec_, Jul 27 2021