login
A190202
Positions of 0 in A190201; complement of A190203.
3
1, 5, 7, 9, 10, 13, 14, 16, 17, 18, 19, 23, 26, 27, 30, 32, 34, 35, 36, 39, 43, 45, 47, 48, 51, 52, 54, 56, 57, 60, 61, 64, 65, 68, 70, 73, 74, 77, 79, 81, 83, 85, 86, 89, 90, 92, 94, 95, 98, 99, 102, 103, 106, 108, 111, 112, 115, 117, 119, 120, 121, 123, 124, 128, 130, 132, 133, 136, 137, 139, 140, 141, 146, 149, 150, 153, 155, 157
OFFSET
1,2
LINKS
MATHEMATICA
u = 5^(1/2); v = 1/u;
f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]
t = Table[f[n], {n, 1, 120}] (*A190201*)
Flatten[Position[t, 0]] (*A190202*)
Flatten[Position[t, 1]] (*A190203*)
CROSSREFS
Sequence in context: A334303 A184110 A138892 * A005523 A037084 A018935
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 05 2011
STATUS
approved