login
A138885
n-th run has length n-th nonprime number, with digits 0 and 1 only, starting with 1.
1
1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
OFFSET
1,1
EXAMPLE
.n ..... Run ................... Length
.1 ..... 1 ..................... 1
.2 ..... 0,0,0,0 ............... 4
.3 ..... 1,1,1,1,1,1 ........... 6
.4 ..... 0,0,0,0,0,0,0,0 ....... 8
.5 ..... 1,1,1,1,1,1,1,1,1 ..... 9
MATHEMATICA
Join[{1}, {PadRight[{}, #[[1]], 0], PadRight[{}, #[[2]], 1]}&/@Partition[Select[Range[ 20], CompositeQ], 2]]//Flatten (* Harvey P. Dale, May 26 2023 *)
CROSSREFS
Sequence in context: A071005 A287801 A089510 * A185115 A240467 A014065
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Apr 06 2008
STATUS
approved