login
A188399
Positions of 0 in A188398; complement of A188265.
3
2, 3, 6, 9, 10, 13, 16, 17, 19, 20, 23, 26, 27, 30, 33, 34, 36, 37, 40, 43, 44, 47, 50, 51, 54, 57, 58, 60, 61, 64, 67, 68, 71, 74, 75, 77, 78, 81, 84, 85, 88, 91, 92, 95, 98, 99, 101, 102, 105, 108, 109, 112, 115, 116, 118, 119, 122, 125, 126, 129, 132, 133, 135, 136, 139, 142, 143, 146, 149, 150, 153, 156, 157, 159, 160
OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
r=2^(-1/2); k=5;
t=Table[Floor[n*r+k*r]-Floor[n*r]-Floor[k*r], {n, 1, 220}] (* A188398 *)
Flatten[Position[t, 0] ] (* A188399 *)
Flatten[Position[t, 1] ] (* A188265 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Mar 30 2011
STATUS
approved