A317544 Positions of 0's in A317542, the formal inverse of the period-doubling sequence A096268.

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

Table of n, a(n) for n=0..67.

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

Cf. A096268, A317542, A317543.

Sequence in context: A039196 A039147 A039107 * A047420 A039075 A050078

Adjacent sequences: A317541 A317542 A317543 * A317545 A317546 A317547

Keyword

nonn

Author

Manon Stipulanti, Jul 30 2018

Status

approved