A188042 Positions of 0 in A188041; complement of A188043.

1, 2, 3, 4, 6, 7, 8, 9, 11, 12, 13, 14, 16, 18, 19, 20, 21, 23, 24, 25, 26, 28, 30, 31, 32, 33, 35, 36, 37, 38, 40, 41, 42, 43, 45, 47, 48, 49, 50, 52, 53, 54, 55, 57, 59, 60, 61, 62, 64, 65, 66, 67, 69, 70, 71, 72, 74, 76, 77, 78, 79, 81, 82, 83, 84, 86, 88, 89, 90, 91, 93, 94, 95, 96, 98, 100, 101, 102, 103, 105, 106, 107, 108, 110, 111, 112, 113, 115, 117, 118, 119, 120, 122

Offset

1,2

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, A188043.

Sequence in context: A190241 A225859 A020655 * A236842 A236860 A031942

Adjacent sequences: A188039 A188040 A188041 * A188043 A188044 A188045

Keyword

nonn

Author

Clark Kimberling, Mar 19 2011

Status

approved