login
A188045
Positions of 0 in A188044; complement of A188046.
3
2, 4, 7, 9, 12, 14, 19, 21, 24, 26, 31, 33, 36, 38, 41, 43, 48, 50, 53, 55, 60, 62, 65, 67, 70, 72, 77, 79, 82, 84, 89, 91, 94, 96, 101, 103, 106, 108, 111, 113, 118, 120, 123, 125, 130, 132, 135, 137, 140, 142, 147, 149, 152, 154, 159, 161, 164, 166, 171, 173, 176, 178, 181, 183, 188, 190, 193, 195, 200, 202, 205, 207, 210, 212, 217, 219
OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
r=2^(1/2); k=4;
t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r], {n, 1, 220}] (* A188044 *)
Flatten[Position[t, 0]] (* A188045 *)
Flatten[Position[t, 1]] (* A188046 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Mar 19 2011
STATUS
approved