login
A120753
Numbers k such that {rk} > c, where r = (1/2)^(1/2), c = 1/2 and { } denotes fractional part.
3
1, 4, 5, 7, 8, 11, 14, 15, 18, 21, 22, 24, 25, 28, 29, 31, 32, 35, 38, 39, 41, 42, 45, 46, 48, 49, 52, 55, 56, 59, 62, 63, 65, 66, 69, 72, 73, 76, 79, 80, 82, 83, 86, 87, 89, 90, 93, 96, 97, 100, 103, 104, 106, 107, 110, 113, 114, 117, 120, 121, 123, 124, 127, 128, 130, 131
OFFSET
1,2
COMMENTS
Positions of 1 in A083035.
EXAMPLE
(See A120243.)
MATHEMATICA
r = Sqrt[1/2]; b = 2; c = 0;
f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
t = Table[f[n], {n, 1, 200}] (* A083035 *)
Flatten[Position[t, 0]] (* A120752 *)
Flatten[Position[t, 1]] (* A120753 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jul 01 2006
STATUS
approved