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,1

Comments

See A190669.

Links

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

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 *)

Crossrefs

Cf. A190669, A190671.

Sequence in context: A338064 A230375 A062837 * A226115 A359503 A073170

Adjacent sequences: A190667 A190668 A190669 * A190671 A190672 A190673

Keyword

nonn

Author

Clark Kimberling, May 16 2011

Status

approved