A188265 - OEIS

%I #14 Apr 12 2018 02:44:52

%S 1,4,5,7,8,11,12,14,15,18,21,22,24,25,28,29,31,32,35,38,39,41,42,45,

%T 46,48,49,52,53,55,56,59,62,63,65,66,69,70,72,73,76,79,80,82,83,86,87,

%U 89,90,93,94,96,97,100,103,104,106,107,110,111,113,114,117,120,121,123,124,127,128,130,131,134,137,138,140,141,144,145,147,148,151,152,154,155

%N Positions of 1 in A188398; complement of A188399.

%C See A187950.

%H G. C. Greubel, <a href="/A188265/b188265.txt">Table of n, a(n) for n = 1..10000</a>

%t r=2^(-1/2); k=5;

%t t=Table[Floor[n*r+k*r]-Floor[n*r]-Floor[k*r], {n,1,220}]   (* A188398 *)

%t Flatten[Position[t,0] ]   (* A188399 *)

%t Flatten[Position[t,1] ]   (* A188265 *)

%Y Cf. A188398, A188399.

%K nonn

%O 1,2

%A _Clark Kimberling_, Mar 30 2011