A190158 Positions of 2 in A189463.

3, 4, 8, 12, 16, 20, 21, 25, 29, 33, 37, 38, 41, 42, 46, 50, 54, 55, 58, 59, 63, 67, 71, 72, 75, 76, 80, 84, 88, 92, 93, 97, 101, 105, 109, 110, 113, 114, 118, 122, 126, 127, 130, 131, 135, 139, 143, 144, 147, 148, 152, 156, 160, 164, 165, 169, 173, 177, 181, 182, 185, 186, 190, 194, 198, 199, 202, 203, 207, 211, 215, 216, 219, 220

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, A189465.

Sequence in context: A199880 A063227 A293462 * A188217 A138926 A357501

Adjacent sequences: A190155 A190156 A190157 * A190159 A190160 A190161

Keyword

nonn

Author

Clark Kimberling, May 22 2011

Status

approved