login
A190225
Positions of 0 in A190224; complement of A190226.
3
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
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
Sequence in context: A188160 A047571 A190237 * A276706 A357018 A271396
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 06 2011
STATUS
approved