cp's OEIS Frontend

A276390 Bisection of A115716.

%I A276390 #11 Jun 12 2018 04:23:20
%S A276390 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,
%T A276390 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,
%U A276390 11,3,171,3,11,3,43,3,11,3,2731,3,11,3,43,3,11,3,171
%N A276390 Bisection of A115716.
%H A276390 Alois P. Heinz, <a href="/A276390/b276390.txt">Table of n, a(n) for n = 0..16383</a>
%p A276390 b:= proc(n) option remember; `if`(n=0, 1,
%p A276390       `if`(n::odd, 1, 4*b(n/2-1)-1))
%p A276390     end:
%p A276390 a:= n-> b(2*n):
%p A276390 seq(a(n), n=0..100);  # _Alois P. Heinz_, Sep 07 2016
%t A276390 b[n_] := b[n] = If[n == 0, 1, If[OddQ[n], 1, 4*b[n/2 - 1] - 1]];
%t A276390 a[n_] := b[2*n];
%t A276390 Table[a[n], {n, 0, 100}] (* _Jean-François Alcover_, Jun 12 2018, after _Alois P. Heinz_ *)
%Y A276390 Cf. A115716.
%K A276390 nonn
%O A276390 0,2
%A A276390 _N. J. A. Sloane_, Sep 07 2016
%E A276390 More terms from _Alois P. Heinz_, Sep 07 2016