A268433 a(n) = A106184(n) / A001316(n).

1, 1, 5, 7, 59, 95, 377, 655, 10163, 18459, 71099, 132641, 1021455, 1937515, 7477505, 14335423, 443971523, 857241875, 3328921191, 6459762413, 50311588373, 97986366561, 382518036575, 747066030569, 11690129046071, 22881444619663, 89673873841559, 175837008468485

Offset: 0

Author

Peter Luschny, Feb 24 2016

Keywords

• nonn

Crossrefs

Cf. A000120, A000984, A001316, A106184.

Programs

Maple

H := n -> hypergeom([1/2,-n/2,-n/2+1/2],[-n/2+3/4,-n/2+1/4],1/2):
A000984 := n -> 4^n*hypergeom([-n,1/2],[1],1):
A001316 := n -> 2^(add(i, i = convert(n, base, 2))):
a := n -> H(n)*A000984(n)/A001316(n): seq(simplify(a(n)),n=0..27);

Formula

a(n) = 2^(2*n-A000120(n))*hypergeometric([-n,1/2],[1],1)*hypergeometric([1/2,-n/2,-n/2+1/2],[-n/2+3/4,-n/2+1/4],1/2).