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 A346748 #8 Nov 30 2021 16:04:58 %S A346748 1,1,0,0,4,-1,-9,103,-132,-535,7731,-25117,-18072,1078215,-6917039, %T A346748 16312667,186611792,-2454241183,14370311311,1436259867,-934228834216, %U A346748 10658996229479,-54990712418263,-185381404760729,7270919988375200,-80130195880201583,391992372213719679 %N A346748 E.g.f.: exp( (x * exp(-x) + sinh(x)) / 2 ). %C A346748 Exponential transform of A001057. %F A346748 a(0) = 1; a(n) = Sum_{k=1..n} binomial(n-1,k-1) * A001057(k) * a(n-k). %t A346748 nmax = 26; CoefficientList[Series[Exp[(x Exp[-x] + Sinh[x])/2], {x, 0, nmax}], x] Range[0, nmax]! %t A346748 a[0] = 1; a[n_] := a[n] = Sum[(-1)^(k + 1) Binomial[n - 1, k - 1] Floor[(k + 1)/2] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 26}] %Y A346748 Cf. A001057, A003724, A003725, A346746, A346747. %K A346748 sign %O A346748 0,5 %A A346748 _Ilya Gutkovskiy_, Aug 01 2021 %E A346748 Typo in a(26) corrected by _Georg Fischer_, Nov 30 2021