A190430 Positions of 2 in A190427.

3, 6, 8, 11, 16, 19, 21, 24, 29, 32, 37, 40, 42, 45, 50, 53, 55, 58, 61, 63, 66, 71, 74, 76, 79, 84, 87, 92, 95, 97, 100, 105, 108, 110, 113, 116, 118, 121, 126, 129, 131, 134, 139, 142, 144, 147, 150, 152, 155, 160, 163, 165, 168, 173, 176, 181, 184, 186, 189, 194, 197, 199, 202, 205, 207, 210, 215

Offset: 1

Author

Clark Kimberling, May 10 2011

Keywords

• nonn

Comments

See A190427.

Links

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

Crossrefs

Cf. A190427, A190428, A190429.

Programs

Mathematica

r = GoldenRatio; b = 2; c = 1;
f[n_] := Floor[(b*n + c)*r] - b*Floor[n*r] - Floor[c*r];
t = Table[f[n], {n, 1, 320}] (* A194277 *)
Flatten[Position[t, 0]] (* A190428 *)
Flatten[Position[t, 1]] (* A190429 *)
Flatten[Position[t, 2]] (* A190430 *)