A189465 Positions of 1 in A189463.

2, 6, 7, 10, 11, 15, 19, 23, 24, 27, 28, 32, 36, 40, 44, 45, 49, 53, 57, 61, 62, 65, 66, 70, 74, 78, 79, 82, 83, 87, 91, 95, 96, 99, 100, 104, 108, 112, 116, 117, 121, 125, 129, 133, 134, 137, 138, 142, 146, 150, 151, 154, 155, 159, 163, 167, 168, 171, 172, 176, 180, 184, 188, 189, 193, 197, 201, 205, 206, 209, 210, 214, 218

Offset

1,1

Comments

See A189463.

Links

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

Mathematica

r = 5^(1/2);
f[n_] := Floor[3 n*r] - 3*Floor[n*r];
t = Table[f[n], {n, 1, 220}] (* A189463 *)
Flatten[Position[t, 0]]   (* A189464 *)
Flatten[Position[t, 1]]   (* A189465 *)
Flatten[Position[t, 2]]   (* A190158 *)

Crossrefs

Cf. A189463, A189464, A190158.

Sequence in context: A358579 A341437 A327985 * A109783 A186888 A179883

Adjacent sequences: A189462 A189463 A189464 * A189466 A189467 A189468

Keyword

nonn

Author

Clark Kimberling, Apr 22 2011

Status

approved