A354331
a(n) is the denominator of Sum_{k=0..n} 1 / (2*k+1)!.
Original entry on oeis.org
1, 6, 40, 5040, 362880, 13305600, 6227020800, 1307674368000, 513257472000, 121645100408832000, 51090942171709440000, 8617338912961658880000, 15511210043330985984000000, 10888869450418352160768000000, 2947253997913233984847872000000, 1174691236311131831103651840000000
Offset: 0
1, 7/6, 47/40, 5923/5040, 426457/362880, 15636757/13305600, 7318002277/6227020800, ...
-
Table[Sum[1/(2 k + 1)!, {k, 0, n}], {n, 0, 15}] // Denominator
nmax = 15; CoefficientList[Series[Sinh[Sqrt[x]]/(Sqrt[x] (1 - x)), {x, 0, nmax}], x] // Denominator
-
a(n) = denominator(sum(k=0, n, 1/(2*k+1)!)); \\ Michel Marcus, May 24 2022
-
from fractions import Fraction
from math import factorial
def A354331(n): return sum(Fraction(1,factorial(2*k+1)) for k in range(n+1)).denominator # Chai Wah Wu, May 24 2022
A289381
a(n) = numerator of Sum_{k=1..n} 1/(2*k-1)!!.
Original entry on oeis.org
1, 4, 7, 148, 1333, 4888, 190633, 2859496, 1246447, 923617228, 19395961789, 11438644132, 1013879820791, 301122306774928, 171226409734763, 270708953790660304, 525493851475987649, 104222947209404217052, 11568747140243868092773, 451181138469510855618148
Offset: 1
1, 4/3, 7/5, 148/105, 1333/945, 4888/3465, 190633/135135, 2859496/2027025, 1246447/883575, 923617228/654729075, 19395961789/13749310575, 11438644132/8108567775, ... = a(n)/A289488(n) -> A060196.
A354299
a(n) is the denominator of Sum_{k=1..n} (-1)^(k+1) / (2*k-1)!!.
Original entry on oeis.org
1, 3, 15, 105, 189, 10395, 135135, 2027025, 34459425, 130945815, 13749310575, 316234143225, 7905853580625, 12556355686875, 1238056670725875, 776918153694375, 6332659870762850625, 7642865361265509375, 8200794532637891559375, 63966197354575554163125, 13113070457687988603440625
Offset: 1
1, 2/3, 11/15, 76/105, 137/189, 7534/10395, 97943/135135, 1469144/2027025, 24975449/34459425, ...
-
S:= 0: R:= NULL:
for n from 1 to 100 do
S:= S + (-1)^(n+1)/doublefactorial(2*n-1);
R:= R, denom(S);
od:
R; # Robert Israel, Jan 10 2024
-
Table[Sum[(-1)^(k + 1)/(2 k - 1)!!, {k, 1, n}], {n, 1, 21}] // Denominator
nmax = 21; CoefficientList[Series[Sqrt[Pi x Exp[-x]/2] Erfi[Sqrt[x/2]]/(1 - x), {x, 0, nmax}], x] // Denominator // Rest
Table[1/(1 + ContinuedFractionK[2 k - 1, 2 k, {k, 1, n - 1}]), {n, 1, 21}] // Denominator
Showing 1-3 of 3 results.