A190244 Positions of 1 in A190242; complement of A190243.

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

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

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

Cf. A190242, A190243.

Sequence in context: A247979 A028951 A035248 * A182636 A116724 A035251

Adjacent sequences: A190241 A190242 A190243 * A190245 A190246 A190247

Keyword

nonn

Author

Clark Kimberling, May 06 2011

Status

approved