A190889 Positions of 2 in A190886.

2, 6, 11, 15, 19, 23, 32, 36, 40, 49, 53, 57, 61, 66, 70, 74, 78, 83, 87, 91, 95, 104, 108, 112, 121, 125, 129, 138, 142, 146, 150, 155, 159, 163, 167, 176, 180, 184, 193, 197, 201, 210, 214, 218, 222, 227, 231, 235, 239, 248, 252, 256, 265, 269, 273, 282, 286, 290, 294, 299, 303, 307, 311, 316, 320, 324, 328, 337, 341, 345, 354, 358

Offset: 1

Author

Clark Kimberling, May 26 2011

Keywords

• nonn

Comments

See A190886.

Crossrefs

Cf. A190886.

Programs

Mathematica

r = Sqrt[5];
f[n_] := Floor[5n*r] - 5*Floor[n*r]
t = Table[f[n], {n, 1, 400}] (* A190886 *)
Flatten[Position[t, 2]]      (* A190889 *)