A190243 Positions of 0 in A190242; complement of A190244.

3, 5, 6, 10, 11, 13, 17, 18, 20, 22, 25, 26, 27, 29, 32, 33, 34, 37, 39, 40, 41, 44, 46, 47, 51, 52, 54, 58, 59, 61, 63, 66, 67, 68, 73, 74, 75, 78, 80, 81, 82, 85, 87, 88, 92, 93, 95, 97, 99, 100, 102, 104, 107, 108, 109, 114, 115, 116, 119, 121, 122, 123, 126, 128, 129, 133, 134, 136, 138, 141, 143, 145, 148, 149, 150, 153, 155, 156

Offset

1,1

Links

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

Mathematica

u = 2^(1/2); v = 3^(1/2);
f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]
t = Table[f[n], {n, 1, 120}] (*A190242*)
Flatten[Position[t, 0]]      (*A190243*)
Flatten[Position[t, 1]]      (*A190244*)

Crossrefs

Cf. A190242, A190244.

Sequence in context: A066147 A175304 A140951 * A187127 A187126 A065873

Adjacent sequences: A190240 A190241 A190242 * A190244 A190245 A190246

Keyword

nonn

Author

Clark Kimberling, May 06 2011

Status

approved