A188026 Positions of 0 in the zero-one sequence given by z(n)=[nr]-[nr-8r]-[8r], where r=(1+sqrt(5))/2, [ ]=floor, n>=1.

8, 21, 42, 55, 76, 97, 110, 131, 144, 165, 186, 199, 220, 241, 254, 275, 288, 309, 330, 343, 364, 377, 398, 419, 432, 453, 474, 487, 508, 521, 542, 563, 576, 597, 618, 631, 652, 665, 686, 707, 720, 741, 754, 775, 796, 809, 830, 851, 864, 885, 898, 919, 940, 953, 974, 987, 1008, 1029, 1042, 1063, 1084, 1097, 1118, 1131, 1152, 1173, 1186, 1207, 1228, 1241, 1262

Offset

1,1

Comments

See A188014.

Links

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

Mathematica

r=(1+5^(1/2))/2; k=8;
t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r], {n, 1, 220}]   Flatten[Position[t, 0]]  (*A188026*)
Flatten[Position[t, 1]]  (* complement of A188026 *)

Crossrefs

A188014.

Sequence in context: A137742 A275874 A190456 * A180672 A152117 A075629

Adjacent sequences: A188023 A188024 A188025 * A188027 A188028 A188029

Keyword

nonn

Author

Clark Kimberling, Mar 19 2011

Status

approved