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.

A346748 E.g.f.: exp( (x * exp(-x) + sinh(x)) / 2 ).

This page as a plain text file.
%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