login
A188373
Positions of 1 in A188371; complement of A188372.
3
3, 10, 13, 17, 20, 27, 30, 34, 37, 44, 47, 51, 54, 58, 61, 68, 71, 75, 78, 85, 88, 92, 95, 99, 102, 109, 112, 116, 119, 126, 129, 133, 136, 143, 146, 150, 153, 157, 160, 167, 170, 174, 177, 184, 187, 191, 194, 198, 201, 208, 211, 215, 218, 225, 228, 232, 235, 242, 245, 249, 252, 256, 259, 266, 269, 273, 276, 283, 286
OFFSET
1,1
COMMENTS
See A188014.
LINKS
MATHEMATICA
r=2^(-1/2); k=6;
t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r], {n, 1, 220}] (*A188371*)
Flatten[Position[t, 0]] (*A188372*)
Flatten[Position[t, 1]] (*A188373*)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Mar 29 2011
STATUS
approved