A272728 a(n) = A272727(2n-1) - n.

0, 1, 0, 1, 2, 1, 0, 1, 0, 1, 2, 3, 2, 1, 0, 1, 2, 1, 0, 1, 0, 1, 0, 1, 2, 3, 4, 3, 2, 1, 0, 1, 0, 1, 2, 3, 2, 1, 0, 1, 2, 1, 0, 1, 2, 1, 0, 1, 0, 1, 0, 1, 0, 1, 2, 3, 4, 5, 4, 3, 2, 1, 0, 1, 2, 1, 0, 1, 0, 1, 0, 1, 2, 3, 4, 3, 2, 1, 0, 1, 0, 1, 2, 3, 2, 1, 0, 1, 0, 1, 2, 3, 2, 1, 0

Offset

1,5

Comments

a(n)>=0.

|a(n+1)-a(n)|=1.

All local minima occur where a(n)=0. Values at the local maxima are listed in A272729.

Empirically: The least n such that a(n) = k - 1 is n = 2^k - k. - Danny Rorabaugh, May 12 2016

Links

Ivan Neretin, Table of n, a(n) for n = 1..8192

Mathematica

nn = 120; s = Nest[Append[#, Count[# - Reverse[#], x_ /; x == 0]] &, {0}, 2 nn - 1]; Table[s[[2 n]] - n, {n, nn}] (* Michael De Vlieger, May 05 2016, after Ivan Neretin at A272727 *)

Crossrefs

Cf. A272727, A272729.

Sequence in context: A334107 A346700 A301574 * A174695 A337622 A165577

Adjacent sequences: A272725 A272726 A272727 * A272729 A272730 A272731

Keyword

nonn

Author

Ivan Neretin, May 05 2016

Status

approved