A190247 Positions of 1 in A190245; complement of A190246.

1, 2, 6, 7, 9, 12, 13, 14, 18, 19, 21, 24, 25, 26, 30, 31, 33, 35, 36, 38, 41, 42, 43, 47, 48, 50, 53, 54, 55, 59, 60, 62, 65, 66, 67, 70, 71, 72, 76, 77, 79, 82, 83, 84, 88, 89, 91, 94, 95, 96, 100, 101, 105, 106, 108, 111, 112, 113, 117, 118, 120, 123, 124, 125, 129, 130, 132, 135, 137, 140, 141, 142, 146, 147, 149, 152, 153, 154, 158

Offset

1,2

Links

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

Mathematica

u = 2^(1/2); v = 2u;
f[n_] := Floor[n*u + n*v] - Floor[n*u] - Floor[n*v]
t = Table[f[n], {n, 1, 120}] (*A190245*)
Flatten[Position[t, 0]]      (*A190246*)
Flatten[Position[t, 1]]      (*A190247*)

Crossrefs

Cf. A190245, A190246.

Sequence in context: A190784 A344167 A061416 * A020897 A020898 A184779

Adjacent sequences: A190244 A190245 A190246 * A190248 A190249 A190250

Keyword

nonn

Author

Clark Kimberling, May 06 2011

Status

approved