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 A129464 #26 Feb 08 2024 02:57:55 %S A129464 1,-2,-6,-48,-720,-17280,-604800,-29030400,-1828915200,-146313216000, %T A129464 -14485008384000,-1738201006080000,-248562743869440000, %U A129464 -41758540970065920000,-8142915489162854400000,-1824013069572479385600000,-465123332740982243328000000 %N A129464 Second column (m=1) of triangle A129462 (v=2 member of a certain family). %C A129464 See A129462 for the M. Bruschi et al. reference. %H A129464 G. C. Greubel, <a href="/A129464/b129464.txt">Table of n, a(n) for n = 0..250</a> %F A129464 a(n) = A129462(n+1,1), n >= 0. %F A129464 a(n) = -(n-1)!^2*n*(n+1), n > 0. - _Peter Luschny_, Oct 15 2010 %F A129464 From _Amiram Eldar_, May 17 2022: (Start) %F A129464 Sum_{n>=1} 1/a(n) = -BesselI(2, 2) = -A229020. %F A129464 Sum_{n>=1} (-1)^n/a(n) = BesselJ(2, 2). (End) %p A129464 A129464 := n -> `if`(n=0,1,-(n-1)!^2*n*(n+1)); # _Peter Luschny_, Oct 15 2010 %t A129464 Table[If[n==0, 1, -(n-1)!*(n+1)!], {n,0,30}] (* _G. C. Greubel_, Feb 08 2024 *) %o A129464 (Magma) [1] cat [-Factorial(n-1)*Factorial(n+1): n in [1..30]]; // _G. C. Greubel_, Feb 08 2024 %o A129464 (SageMath) [1]+[-factorial(n-1)*factorial(n+1) for n in range(1,31)] # _G. C. Greubel_, Feb 08 2024 %Y A129464 Cf. A129462, A129465 (m=2), A129466 (m=3). %Y A129464 Cf. A229020. %K A129464 sign,easy %O A129464 0,2 %A A129464 _Wolfdieter Lang_, May 04 2007