cp's OEIS Frontend

A067630 Denominators in power series for cos(x)*cosh(x).

%I A067630 #35 Aug 17 2021 19:20:08
%S A067630 1,6,2520,7484400,81729648000,2375880867360000,151476660579404160000,
%T A067630 18608907752179801056000000,4015057936610313875842560000000,
%U A067630 1419041926536183233139035980800000000,778117449996850714059458989711872000000000
%N A067630 Denominators in power series for cos(x)*cosh(x).
%F A067630 cos(x)*cosh(x) = Sum_{n>=0} (-1)^n*x^(4*n)/a(n).
%F A067630 a(n) = (4*n)! / 4^n = A000680(2*n).
%F A067630 E.g.f.: 1/(1-x^4/4). - _Mohammad K. Azarian_, Mar 20 2012
%F A067630 a(n) = n!*A060706(n). - _Bruno Berselli_, Mar 21 2012
%F A067630 From _Amiram Eldar_, Jan 18 2021: (Start)
%F A067630 Sum_{n>=0} 1/a(n) = (cos(sqrt(2)) + cosh(sqrt(2)))/2.
%F A067630 Sum_{n>=0} (-1)^n/a(n) = cos(1)*cosh(1). (End)
%F A067630 D-finite with recurrence: a(n) - (64*n^4 - 96*n^3 + 44*n^2 - 6*n)*a(n-1) = 0. - _Georg Fischer_, Aug 17 2021
%p A067630 f:= gfun:-rectoproc({a(n) - (64*n^4-96*n^3+44*n^2-6*n)*a(n-1), a(0)=1}, a(n), remember): map(f, [$0..20]); # _Georg Fischer_, Aug 17 2021
%t A067630 a[n_] := (4*n)!/4^n; Array[a, 10, 0] (* _Amiram Eldar_, Jan 18 2021 *)
%o A067630 (PARI) my(x='x+O('x^50), v=apply(denominator, Vec(cos(x)*cosh(x)))); vector(#v\4, k, v[4*k-3]) \\ _Michel Marcus_, Jan 18 2021
%Y A067630 Cf. A000680, A060706.
%K A067630 nonn
%O A067630 0,2
%A A067630 _Benoit Cloitre_, Feb 02 2002