A190203 Positions of 1 in A190201; complement of A190202.

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

G. C. Greubel, Table of n, a(n) for n = 1..5550

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

Cf. A190201, A190202.

Sequence in context: A039500 A160649 A341059 * A034034 A353721 A263132

Adjacent sequences: A190200 A190201 A190202 * A190204 A190205 A190206

Keyword

nonn

Author

Clark Kimberling, May 05 2011

Status

approved