A187974 Positions of 1 in A187972; complement of A187973.

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

Offset

1,2

Comments

See A187950, A187972.

Links

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

Mathematica

r=2^(1/2);
seqA=Table[Floor[(n+4)r]-Floor[n*r]-Floor[4r], {n, 1, 220}]   (* A187972 *)
Flatten[Position[seqA, 0] ]   (* A187973 *)
Flatten[Position[seqA, 1] ]   (* A187974 *)

Crossrefs

Cf. A187950, A187972, A187973.

Sequence in context: A184411 A052056 A356754 * A193715 A320474 A051533

Adjacent sequences: A187971 A187972 A187973 * A187975 A187976 A187977

Keyword

nonn

Author

Clark Kimberling, Mar 17 2011

Status

approved