A190703 Positions of 4 in A190698.

4, 8, 15, 19, 23, 30, 34, 38, 45, 49, 56, 60, 64, 71, 75, 79, 86, 90, 101, 105, 112, 116, 120, 127, 131, 135, 142, 146, 157, 161, 168, 172, 176, 183, 187, 191, 198, 202, 209, 213, 217, 224, 228, 232, 239, 243, 254, 258, 265, 269, 273, 280, 284, 288, 295, 299, 310, 314, 321, 325, 329, 336, 340, 344, 351, 355, 366, 370, 377, 381, 385

Offset: 1

Author

Clark Kimberling, May 17 2011

Keywords

• nonn

Comments

See A190698.

Links

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

Crossrefs

Cf. A190698.

Programs

Mathematica

r = Sqrt[3]; b = 4; c = 1;
f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
t = Table[f[n], {n, 1, 200}] (* A190698 *)
Flatten[Position[t, 0]]      (* A190699 *)
Flatten[Position[t, 1]]      (* A190700 *)
Flatten[Position[t, 2]]      (* A190701 *)
Flatten[Position[t, 3]]      (* A190702 *)
Flatten[Position[t, 4]]      (* A190703 *)