A190670 Positions of 0 in A190669; complement of A190671.

2, 3, 6, 7, 10, 11, 14, 17, 18, 21, 22, 25, 26, 28, 29, 32, 33, 36, 37, 40, 41, 43, 44, 47, 48, 51, 52, 55, 58, 59, 62, 63, 66, 67, 70, 73, 74, 77, 78, 81, 82, 84, 85, 88, 89, 92, 93, 96, 97, 99, 100, 103, 104, 107, 108, 111, 114, 115, 118, 119, 122, 123, 126, 129, 130, 133, 134, 137, 138, 140, 141, 144, 145, 148, 149

Offset: 1

Author

Clark Kimberling, May 16 2011

Keywords

• nonn

Comments

See A190669.

Links

• G. C. Greubel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A190669, A190671.

Programs

Mathematica

r = Sqrt[3]; 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}] (* A190669 *)
Flatten[Position[t, 0]]      (* A190670 *)
Flatten[Position[t, 1]]      (* A190671 *)