A187977 Positions of 0 in A187976; complement of A187978.

1, 3, 5, 6, 8, 10, 13, 15, 17, 18, 20, 22, 25, 27, 29, 30, 32, 34, 35, 37, 39, 42, 44, 46, 47, 49, 51, 54, 56, 58, 59, 61, 63, 64, 66, 68, 71, 73, 75, 76, 78, 80, 83, 85, 87, 88, 90, 92, 95, 97, 99, 100, 102, 104, 105, 107, 109, 112, 114, 116, 117, 119, 121, 124, 126, 128, 129, 131, 133, 134, 136, 138, 141, 143, 145, 146, 148, 150, 153, 155

Offset

1,2

Comments

See A187950, A187976.

Links

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

Mathematica

r=2^(1/2);
seqA=Table[Floor[(n+6)r]-Floor[n*r]-Floor[6r], {n, 1, 220}]   (* A187976 *)
Flatten[Position[seqA, 0] ]   (* A187977 *)
Flatten[Position[seqA, 1] ]   (* A187978 *)

Crossrefs

Cf. A187950, A187976, A187978.

First differs from A120243 in having 64.

Sequence in context: A287724 A024705 A190192 * A120243 A304435 A084810

Adjacent sequences: A187974 A187975 A187976 * A187978 A187979 A187980

Keyword

nonn

Author

Clark Kimberling, Mar 17 2011

Status

approved