Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A317544
Positions of 0's in A317542, the formal inverse of the period-doubling sequence A096268.
2
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, 33, 34, 35, 36, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 50, 51, 52, 53, 54, 56, 57, 58, 59, 60, 62, 63, 64, 66, 67, 68, 69, 70, 72, 73, 74, 75, 76, 78, 79, 80, 81, 82
OFFSET
0,2
LINKS
N. Rampersad and M. Stipulanti, The Formal Inverse of the Period-Doubling Sequence, arXiv preprint arXiv:1807.11899 [math.CO], 2018.
MATHEMATICA
a[0] = 0;
a[n_] :=
Module[{m, u, i},
u[0] = 0; u[1] = 1; u[2] = 0; u[3] = 0;
u[i_] := If[EvenQ[i], 0, If[IntegerQ[(i - 1)/4], u[2 ((i - 1)/4) - 1], u[(i - 3)/4]]];
m = a[n - 1] + 1;
While[u[m] == 1, m++];
m
]
CROSSREFS
KEYWORD
nonn
AUTHOR
Manon Stipulanti, Jul 30 2018
STATUS
approved