A276390 Bisection of A115716.

1, 3, 3, 11, 3, 11, 3, 43, 3, 11, 3, 43, 3, 11, 3, 171, 3, 11, 3, 43, 3, 11, 3, 171, 3, 11, 3, 43, 3, 11, 3, 683, 3, 11, 3, 43, 3, 11, 3, 171, 3, 11, 3, 43, 3, 11, 3, 683, 3, 11, 3, 43, 3, 11, 3, 171, 3, 11, 3, 43, 3, 11, 3, 2731, 3, 11, 3, 43, 3, 11, 3, 171

Offset

0,2

Links

Alois P. Heinz, Table of n, a(n) for n = 0..16383

Maple

b:= proc(n) option remember; `if`(n=0, 1,
      `if`(n::odd, 1, 4*b(n/2-1)-1))
    end:
a:= n-> b(2*n):
seq(a(n), n=0..100);  # Alois P. Heinz, Sep 07 2016

Mathematica

b[n_] := b[n] = If[n == 0, 1, If[OddQ[n], 1, 4*b[n/2 - 1] - 1]];
a[n_] := b[2*n];
Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Jun 12 2018, after Alois P. Heinz *)

Crossrefs

Cf. A115716.

Sequence in context: A101326 A265391 A265390 * A178707 A036391 A283138

Adjacent sequences: A276387 A276388 A276389 * A276391 A276392 A276393

Keyword

nonn

Author

N. J. A. Sloane, Sep 07 2016

Extensions

More terms from Alois P. Heinz, Sep 07 2016

Status

approved