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 A114161 #17 Mar 17 2017 22:04:39 %S A114161 3,5,17,91,667,6213,70233,933819,14277555,246772485,4757596065, %T A114161 101218975515,2355535057995,59520844736325,1622874515042025, %U A114161 47490277029572475,1484579154624005475,49374909670517201925 %N A114161 E.g.f.: (3-log(1-2*x))/(1-2*x)^(1/2). %D A114161 C. Dement, Floretion Integer Sequences (work in progress) %H A114161 G. C. Greubel, <a href="/A114161/b114161.txt">Table of n, a(n) for n = 0..400</a> %F A114161 a(n) = 2^n*GAMMA(n+1/2)/Pi^(1/2)*(3+Psi(n+1/2) + gamma + 2*log(2)). - _Vladeta Jovovic_ %t A114161 Range[0, 17]!CoefficientList[ Series[(3 - Log[1 - 2x])/Sqrt[(1 - 2x)], {x, 0, 17}], x] (* or *) %t A114161 f[n_] := FullSimplify[ 2^n*Gamma[n + 1/2]/Sqrt[Pi]*(3 + PolyGamma[n + 1/2] + EulerGamma + 2Log[2])]; Table[ f[n], {n, 0, 17}] (* _Robert G. Wilson v_ *) %o A114161 (PARI) { my(x = xx + O(xx^30)); Vec(serlaplace((3-log(1-2*x))/(1-2*x)^(1/2))) } \\ _Michel Marcus_, Jul 06 2015 %Y A114161 Cf. A114160. %K A114161 nonn %O A114161 0,1 %A A114161 _Creighton Dement_, Nov 14 2005 %E A114161 E.g.f. from _Vladeta Jovovic_ %E A114161 More terms from _Robert G. Wilson v_, Nov 15 2005