A187978 Positions of 1 in A187976; complement of A187977.

2, 4, 7, 9, 11, 12, 14, 16, 19, 21, 23, 24, 26, 28, 31, 33, 36, 38, 40, 41, 43, 45, 48, 50, 52, 53, 55, 57, 60, 62, 65, 67, 69, 70, 72, 74, 77, 79, 81, 82, 84, 86, 89, 91, 93, 94, 96, 98, 101, 103, 106, 108, 110, 111, 113, 115, 118, 120, 122, 123, 125, 127, 130, 132, 135, 137, 139, 140, 142, 144, 147, 149, 151, 152

Offset

1,1

Comments

See A187950 and 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, A187977.

Sequence in context: A185978 A351799 A120749 * A190193 A353737 A138830

Adjacent sequences: A187975 A187976 A187977 * A187979 A187980 A187981

Keyword

nonn

Author

Clark Kimberling, Mar 17 2011

Status

approved