A280910 Characteristic sequence of A277238.

0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1

Offset

0

Links

Antti Karttunen, Table of n, a(n) for n = 0..65537

Index entries for sequences related to binary expansion of n

Index entries for characteristic functions

Prog

(PARI) A280910(n) = if(n<=1, n, my(b = binary(n)); if ((#b % 2) && (b[#b\2+1] == 0), return (0)); vecmin(vector(#b\2, k, bitxor(b[k], b[#b-k+1]))) == 1); \\ Antti Karttunen, Dec 23 2018, after isok function given in A277238 by Michel Marcus, Oct 07 2016

Crossrefs

Cf. A277238.

Sequence in context: A316341 A284901 A071981 * A305816 A359820 A241979

Adjacent sequences: A280907 A280908 A280909 * A280911 A280912 A280913

Keyword

nonn

Author

Taylor J. Smith, Jan 10 2017

Extensions

Term a(0) = 0 prepended and more terms added by Antti Karttunen, Dec 23 2018

Status

approved