A127802 a(0) = 1, a(n) = 3*A036987(n), n>1.

1, 3, 0, 3, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

Offset: 0

Author

Paul Barry, Jan 29 2007

Keywords

• nonn

Comments

Row sums of number triangle A127801.

Links

• Antti Karttunen, Table of n, a(n) for n = 0..16384

Crossrefs

Cf. A036987, A043529.

Programs

Mathematica

Join[{1},3*Rest[Table[PadRight[{1}, 2^k, 0], {k, 0, 6}]//Flatten]] (* James C. McMahon, Jan 04 2025 *)

Python

def A127802(n): return 3*int(not(n&(n+1))) if n else 1 # Chai Wah Wu, Jul 06 2022