|
Search: id:A114160
|
|
|
| A114160 |
|
E.g.f. is A(x) = (1-ln(B(x)))/B(x), where B(x) = sqrt(1-2*x). |
|
+0
2
|
|
| 1, 2, 7, 38, 281, 2634, 29919, 399342, 6125265, 106156530, 2051433495, 43734832470, 1019650457385, 25807495577850, 704708234182575, 20649996837971550, 646340185330747425, 21521124899877175650
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
E.g.f. given by Vladeta Jovovic (vladeta(AT)eunet.rs).
|
|
REFERENCES
|
C. Dement, Floretion Integer Sequences (work in progress)
|
|
FORMULA
|
a(n) = A001147(n) + A004041(n-1) = 2^n*GAMMA(n+1/2)/Pi^(1/2)*(1/2*Psi(n+1/2)+1/2*gamma+ln(2)+1. - Vladeta Jovovic (vladeta(AT)eunet.rs)
|
|
MATHEMATICA
|
Range[0, 18]! CoefficientList[ Series[(1 - Log[Sqrt[1 - 2x]])/Sqrt[(1 - 2x)], {x, 0, 18}], x] (* or *)
f[n_] := FullSimplify[ 2^(n-1)*Gamma[n + 1/2]/Sqrt[Pi]*(PolyGamma[n + 1/2] + EulerGamma + Log[4] + 2)]; Table[f[n], {n, 0, 18}] (* Robert G. Wilson v *)
|
|
CROSSREFS
|
Cf. A114161.
Sequence in context: A094431 A032109 A088792 this_sequence A145159 A084552 A094664
Adjacent sequences: A114157 A114158 A114159 this_sequence A114161 A114162 A114163
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Creighton Dement (creighton.k.dement(AT)uni-oldenburg.de), Nov 14 2005
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Nov 15 2005
|
|
|
Search completed in 0.002 seconds
|
