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.
1.1464990725286428079011952024647...
RealDigits[HypergeometricPFQ[{1, 1, 1}, {2, 2, 2}, 1], 10, 100][[1]]
intnum(x=0,1,exp(x)*log(x)^2)/2 \\ Hugo Pfoertner, Feb 12 2024
0.89121279811130237606985786245535...
RealDigits[HypergeometricPFQ[{1, 1, 1}, {2, 2, 2}, -1], 10, 100][[1]]
egf := -x*(x + 1)*exp(x)/(x - 1)^3: ser := series(egf, x, 32): seq(n!*coeff(ser, x, n), n = 0..20);
a[n_] := Sum[Pochhammer[n - k + 1, k]*k^2, {k, 0, n}];
Table[a[n], {n, 0, 20}]
def a():
a, b, n = 0, 1, 2
yield 0
while True:
yield b
a, b = b, -(n + 1)*a + ((2 + n*(n + 2))*b)//(n - 1)
n += 1
A343276 = a(); print([next(A343276) for _ in range(21)])
def a(n): return sum(rising_factorial(n - k + 1, k)*k^2 for k in (0..n)) print([a(n) for n in (0..20)])
Comments