login
A190244
Positions of 1 in A190242; complement of A190243.
3
1, 2, 4, 7, 8, 9, 12, 14, 15, 16, 19, 21, 23, 24, 28, 30, 31, 35, 36, 38, 42, 43, 45, 48, 49, 50, 53, 55, 56, 57, 60, 62, 64, 65, 69, 70, 71, 72, 76, 77, 79, 83, 84, 86, 89, 90, 91, 94, 96, 98, 101, 103, 105, 106, 110, 111, 112, 113, 117, 118, 120, 124, 125, 127, 130, 131, 132, 135, 137, 139, 140, 142, 144, 146, 147, 151, 152, 154, 158, 159
OFFSET
1,2
LINKS
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
Sequence in context: A247979 A028951 A035248 * A182636 A116724 A035251
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 06 2011
STATUS
approved