A059620 Colors of the 88 keys of the standard piano: white keys = 0, black keys = 1, start with A0 = the 0th key.

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

Offset

0,1

Links

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

Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,0,0,0,0,0,0,0,1).

Formula

a(n) = floor((5n+7)/12) - floor((5n+2)/12). - David W. Wilson, Mar 02 2003

G.f.: -x*(1+x^3+x^5+x^8+x^10) / ( (x-1) *(1+x+x^2) *(1+x) *(1-x+x^2) *(1+x^2) *(x^4-x^2+1) ). - R. J. Mathar, Dec 16 2016

a(n) = 0 if n is in A060107, a(n) = 1 if n is in A060106. - Jianing Song, Oct 14 2019

Example

.1..1.1..1.1.1..1.1..1.1.1..1.1..1.1.1..1.1..1.1.1..1.1..1.1.1..1.1..1.1.1..1.1..1.1.1
0.00.0.00.0.0.00.0.00.0.0.00.0.00.0.0.00.0.00.0.0.00.0.00.0.0.00.0.00.0.0.00.0.00.0.0.00

Mathematica

Flatten[Table[{0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1}, {8}]][[1 ;; 88]] (* Jean-François Alcover, Apr 24 2017 *)
PadRight[{}, 88, {0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1}] (* Harvey P. Dale, Sep 14 2020 *)

Crossrefs

Cf. A060106, A060107, A081031, A081032.

Sequence in context: A188034 A115199 A085242 * A188014 A288600 A284468

Adjacent sequences: A059617 A059618 A059619 * A059621 A059622 A059623

Keyword

easy,fini,full,nonn,nice

Author

Naohiro Nomoto, Feb 19 2001

Status

approved