A138149 n-th run has length n-th prime, with values 0 and 1 only, starting with 1.

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

Offset

1,1

Links

Table of n, a(n) for n=1..100.

Example

.n ..... Run ....................... Length
.1 ..... 1,1 ....................... 2
.2 ..... 0,0,0 ..................... 3
.3 ..... 1,1,1,1,1 ................. 5
.4 ..... 0,0,0,0,0,0,0 ............. 7
.5 ..... 1,1,1,1,1,1,1,1,1,1,1 ..... 11

Mathematica

Flatten[Table[{Table[1, {Prime[n]}], Table[0, {Prime[n+1]}]}, {n, 1, 11, 2}]] (* Harvey P. Dale, Jan 25 2013 *)

Crossrefs

Cf. A000040, A057211.

Sequence in context: A016179 A015024 A016039 * A113047 A214505 A127692

Adjacent sequences: A138146 A138147 A138148 * A138150 A138151 A138152

Keyword

easy,nonn

Author

Omar E. Pol, Mar 29 2008

Status

approved