login
A190203
Positions of 1 in A190201; complement of A190202.
3
2, 3, 4, 6, 8, 11, 12, 15, 20, 21, 22, 24, 25, 28, 29, 31, 33, 37, 38, 40, 41, 42, 44, 46, 49, 50, 53, 55, 58, 59, 62, 63, 66, 67, 69, 71, 72, 75, 76, 78, 80, 82, 84, 87, 88, 91, 93, 96, 97, 100, 101, 104, 105, 107, 109, 110, 113, 114, 116, 118, 122, 125, 126, 127, 129, 131, 134, 135, 138, 142, 143, 144, 145, 147, 148, 151, 152, 154
OFFSET
1,1
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: A039500 A160649 A341059 * A034034 A353721 A263132
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 05 2011
STATUS
approved