A190225 Positions of 0 in A190224; complement of A190226.

2, 4, 5, 6, 7, 8, 10, 12, 13, 14, 16, 18, 19, 20, 21, 22, 24, 26, 27, 28, 29, 30, 32, 34, 35, 36, 37, 38, 40, 42, 43, 44, 46, 48, 49, 50, 51, 52, 54, 56, 57, 58, 59, 60, 62, 64, 65, 66, 67, 68, 70, 71, 72, 73, 74, 76, 78, 79, 80, 81, 82, 84, 86, 87, 88, 89, 90, 92, 94, 95, 96, 97, 98, 100, 101, 102, 103, 104, 106, 108, 109, 110, 111, 112, 114

Offset

1,1

Links

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

Mathematica

u = Sin[Pi/3]; v = Cos[Pi/3];
f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]
t = Table[f[n], {n, 1, 120}] (* A190224 *)
Flatten[Position[t, 0]]      (* A190225 *)
Flatten[Position[t, 1]]      (* A190226 *)

Prog

(PARI) is(n) = my(u = sin(Pi/3), v = cos(Pi/3)); !(floor(n*u + n*v) - floor(n*u) - floor(n*v)) \\ Iain Fox, Dec 27 2017

Crossrefs

Cf. A190224, A190226.

Sequence in context: A188160 A047571 A190237 * A276706 A357018 A271396

Adjacent sequences: A190222 A190223 A190224 * A190226 A190227 A190228

Keyword

nonn

Author

Clark Kimberling, May 06 2011

Status

approved