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

Author

N. J. A. Sloane, Sep 07 2016

Keywords

• nonn

Links

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

Crossrefs

Cf. A115716.

Programs

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 *)

Extensions

More terms from Alois P. Heinz, Sep 07 2016