|
%I #18 Aug 29 2018 06:32:58
%S 0,2,3,4,6,8,9,10,11,12,14,15,16,18,19,20,21,22,24,25,26,27,28,30,32,
%T 33,34,35,36,38,39,40,41,42,43,44,45,46,47,48,50,51,52,53,54,56,57,58,
%U 59,60,62,63,64,66,67,68,69,70,72,73,74,75,76,78,79,80,81,82
%N Positions of 0's in A317542, the formal inverse of the period-doubling sequence A096268.
%H N. Rampersad and M. Stipulanti, <a href="https://arxiv.org/abs/1807.11899">The Formal Inverse of the Period-Doubling Sequence</a>, arXiv preprint arXiv:1807.11899 [math.CO], 2018.
%t a[0] = 0;
%t a[n_] :=
%t Module[{m, u, i},
%t u[0] = 0; u[1] = 1; u[2] = 0; u[3] = 0;
%t u[i_] := If[EvenQ[i], 0, If[IntegerQ[(i - 1)/4], u[2 ((i - 1)/4) - 1], u[(i - 3)/4]]];
%t m = a[n - 1] + 1;
%t While[u[m] == 1, m++];
%t m
%t ]
%Y Cf. A096268, A317542, A317543.
%K nonn
%O 0,2
%A _Manon Stipulanti_, Jul 30 2018
|
