A135481 a(n) = 2^A007814(n+1) - 1.

0, 1, 0, 3, 0, 1, 0, 7, 0, 1, 0, 3, 0, 1, 0, 15, 0, 1, 0, 3, 0, 1, 0, 7, 0, 1, 0, 3, 0, 1, 0, 31, 0, 1, 0, 3, 0, 1, 0, 7, 0, 1, 0, 3, 0, 1, 0, 15, 0, 1, 0, 3, 0, 1, 0, 7, 0, 1, 0, 3, 0, 1, 0, 63, 0, 1, 0, 3, 0, 1, 0, 7, 0, 1, 0, 3, 0, 1, 0, 15, 0, 1, 0, 3, 0, 1, 0, 7, 0, 1, 0, 3, 0, 1, 0, 31, 0, 1, 0, 3, 0, 1, 0

Offset

0,4

Comments

This is Guy Steele's sequence GS(1, 6) (see A135416).

Links

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

Formula

a(n) = A006519(n+1) - 1. - R. J. Mathar, Feb 10 2016

Maple

GS(1, 6, 200); # see A135416

Mathematica

Table[BitAnd[i, BitNot[i+1]], {i, 0, 200}] (* Peter Luschny, Jun 01 2011 *)

Prog

(PARI) a(n) = 2^valuation(n+1, 2)-1; \\ Michel Marcus, Nov 19 2017
(PARI) a(n) = bitand(bitneg(n+1), n); \\ Ruud H.G. van Tol, Apr 05 2023
(Julia)
using IntegerSequences
A135481List(len) = [Bits("CNIMP", n+1, n) for n in 0:len]
println(A135481List(100))  # Peter Luschny, Sep 25 2021
(Python)
def A135481(n): return ~(n+1)&n # Chai Wah Wu, Jul 06 2022

Crossrefs

Cf. A006519, A007814, A135416, A140670, A136013 (partial sums).

Sequence in context: A242451 A363978 A262964 * A180049 A244454 A238123

Adjacent sequences: A135478 A135479 A135480 * A135482 A135483 A135484

Keyword

nonn,easy

Author

N. J. A. Sloane, based on a message from Guy Steele and Don Knuth, Mar 01 2008

Extensions

a(0) = 0 prepended by Andrey Zabolotskiy, Oct 08 2019, based on Lothar Esser's contribution

Status

approved