A249664 In the n-th row of Pascal's triangle, an odious entry is replaced by 1, an evil entry is replaced by 0 and the n-th row is converted to decimal.

1, 3, 7, 9, 27, 33, 65, 255, 511, 585, 1025, 3591, 4617, 13611, 32639, 34401, 109675, 147441, 264833, 923271, 1183241, 3620667, 7178459, 11295285, 25104893, 57717819, 102148931, 168533253, 403441155, 712644501, 1221813641, 4029305871, 8397439583, 9813933129

Offset

0,2

Links

Peter J. C. Moses, Table of n, a(n) for n = 0..500

Formula

a(n) = sum {i=0,...,n} A010060(binomial(n,i)))*2^i.

Mathematica

a10060[n_] := If[OddQ[Count[IntegerDigits[n, 2], 1]], 1, 0];
Table[Sum[a10060[Binomial[n, i]]2^i, {i, 0, n}], {n, 0, 50}]

Crossrefs

Cf. A007318, A010060.

Sequence in context: A033958 A352016 A018827 * A057840 A339614 A246659

Adjacent sequences: A249661 A249662 A249663 * A249665 A249666 A249667

Keyword

nonn,base

Author

Vladimir Shevelev, Nov 03 2014

Extensions

More terms from Peter J. C. Moses, Nov 03 2014

Status

approved