login
A190226
Positions of 1 in A190224; complement of A190225.
3
1, 3, 9, 11, 15, 17, 23, 25, 31, 33, 39, 41, 45, 47, 53, 55, 61, 63, 69, 75, 77, 83, 85, 91, 93, 99, 105, 107, 113, 115, 121, 123, 127, 129, 135, 137, 143, 145, 151, 153, 157, 159, 165, 167, 173, 175, 181, 187, 189, 195, 197, 203, 205, 209, 211, 217, 219, 225, 227, 233, 235, 239, 241, 247, 249, 255, 257, 263, 269, 271, 277, 279, 285
OFFSET
1,2
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: A065136 A075720 A106373 * A059326 A370873 A028312
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 06 2011
STATUS
approved