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 A361522 #16 Nov 14 2023 13:42:43 %S A361522 1,0,1,0,2,0,6,0,24,0,120,0,720,0,5040,0,40320,0,362880,0,3628800,0, %T A361522 39916800,0,479001600,0,6227020800,0,87178291200,0,1307674368000,0, %U A361522 20922789888000,0,355687428096000,0,6402373705728000,0,121645100408832000,0,2432902008176640000 %N A361522 The aerated factorial numbers. %C A361522 An aerated version of A000142, which is the main entry for this sequence. %H A361522 Sebastian Volz, <a href="https://www.uni-saarland.de/fileadmin/upload/lehrstuhl/weber-moritz/Abschlussarbeiten/volz-bachelors-thesis.pdf">Design and Implementation of Efficient Algorithms for Operations on Partitions of Sets</a>, Bachelor Thesis, Saarland Univ. (Germany, 2023). See p. 45. %H A361522 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Erf.html">Error function erf</a>. %F A361522 a(n) = n! * [z^n] (z/2)*Pi^(1/2)*erf(z/2)*exp((z/2)^2) + 1. %F A361522 a(n) = n! * [z^n] 1 + 2*u*exp(u)*hypergeom([1/2], [3/2], -u), where u = (z/2)^2. %p A361522 egf := (z/2)*Pi^(1/2)*erf(z/2)*exp((z/2)^2) + 1: %p A361522 ser := series(egf, z, 42): seq(n!*coeff(ser, z, n), n = 0..40); %t A361522 a[n_] := If[OddQ[n], 0, (n/2)!]; Array[a, 41, 0] (* _Amiram Eldar_, Mar 14 2023 *) %Y A361522 Cf. A000142, A081124, A084261, A081123, A161556. %K A361522 nonn %O A361522 0,5 %A A361522 _Peter Luschny_, Mar 14 2023