A190489 Positions of 1 in A190487.

1, 4, 6, 11, 13, 16, 18, 23, 25, 28, 30, 35, 40, 42, 45, 47, 52, 54, 57, 59, 64, 66, 69, 71, 74, 76, 81, 83, 86, 88, 93, 95, 98, 100, 103, 105, 110, 112, 115, 117, 122, 124, 127, 129, 134, 139, 141, 144, 146, 151, 153, 156, 158, 163, 165, 168, 170, 173, 175, 180, 182, 185, 187, 192, 194, 197, 199, 204, 209, 211, 214, 216, 221, 223

Offset

1,2

Links

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

Mathematica

r = Sqrt[2]; b = 3; c = 0;
f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
t = Table[f[n], {n, 1, 200}]  (* A190487 *)
Flatten[Position[t, 0]]   (* A190488 *)
Flatten[Position[t, 1]]   (* A190489 *)
Flatten[Position[t, 2]]   (* A190490 *)

Crossrefs

Cf. A190487.

Sequence in context: A031452 A185868 A250125 * A094226 A047288 A287565

Adjacent sequences: A190486 A190487 A190488 * A190490 A190491 A190492

Keyword

nonn

Author

Clark Kimberling, May 11 2011

Status

approved