A188043 Positions of 1 in A188041; complement of A188042.

5, 10, 15, 17, 22, 27, 29, 34, 39, 44, 46, 51, 56, 58, 63, 68, 73, 75, 80, 85, 87, 92, 97, 99, 104, 109, 114, 116, 121, 126, 128, 133, 138, 143, 145, 150, 155, 157, 162, 167, 169, 174, 179, 184, 186, 191, 196, 198, 203, 208, 213, 215, 220, 225, 227, 232, 237, 242, 244, 249, 254, 256, 261, 266, 268, 273, 278, 283

Offset

1,1

Comments

See A188014, A188041.

Links

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

Mathematica

r=2^(1/2); k=3;
t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r], {n, 1, 220}]   (*A188041*)
Flatten[Position[t, 0]]  (*A188042*)
Flatten[Position[t, 1]]  (*A188043*)

Crossrefs

Cf. A188014, A188041, A188042.

Sequence in context: A254063 A313670 A321513 * A313671 A313672 A313673

Adjacent sequences: A188040 A188041 A188042 * A188044 A188045 A188046

Keyword

nonn

Author

Clark Kimberling, Mar 19 2011

Status

approved