A190772 Positions of 1 in A190770.

2, 3, 6, 9, 13, 16, 20, 23, 26, 30, 33, 37, 40, 43, 44, 47, 50, 54, 57, 60, 61, 64, 67, 71, 74, 78, 81, 84, 85, 88, 91, 95, 98, 101, 102, 105, 108, 112, 115, 119, 122, 125, 129, 132, 136, 139, 142, 143, 146, 149, 153, 156, 159, 160, 163, 166, 170, 173, 177, 180, 183, 184, 187, 190, 194, 197, 200, 201, 204, 207, 211, 214, 218, 221, 224, 225, 228, 231, 235, 238, 241, 242

Offset: 1

Author

Clark Kimberling, May 19 2011

Keywords

• nonn

Comments

See A190770.

Crossrefs

Cf. A190770.

Programs

Mathematica

r = Sqrt[1/2]; b = 3; c = 1;
f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
t = Table[f[n], {n, 1, 300}] (* A190770 *)
Flatten[Position[t, 1]]      (* A190772 *)

Extensions

a(76)=225 inserted by Georg Fischer, Aug 27 2021