A350326 Binomial transform of A339443(n).

1, 2, 5, 11, 24, 52, 110, 227, 463, 947, 1956, 4073, 8501, 17695, 36654, 75585, 155396, 318958, 654018, 1339502, 2738706, 5586721, 11368212, 23081884, 46793949, 94805057, 192116284, 389627700, 791036691, 1607529164, 3268715492, 6647212980, 13512728367, 27449702179

Offset

0,2

Links

Table of n, a(n) for n=0..33.

Index entries for sequences related to partitions

Formula

a(n) = Sum_{k=0..n} binomial(n,k) * A339443(n-k+1).

Mathematica

a[n_] := (1 - (-1)^n) (1 + Floor[Sqrt[2 n - 1]])/2 - (((-1)^n - 2 n - 1)/2 + 2 Sum[Floor[(k + 1)/2], {k, -1 + Floor[Sqrt[2 n - 2 - (-1)^n]]}]) (-1)^n/2; Table[Sum[Binomial[n, i]*a[n - i + 1], {i, 0, n}], {n, 0, 40}]

Crossrefs

Cf. A339443.

Sequence in context: A134389 A286945 A371797 * A111297 A077864 A052980

Adjacent sequences: A350323 A350324 A350325 * A350327 A350328 A350329

Keyword

nonn

Author

Wesley Ivan Hurt, Dec 24 2021

Status

approved