A187970 Positions of 0 in A187969; complement of A187971.

1, 3, 4, 5, 6, 8, 9, 10, 11, 13, 15, 16, 17, 18, 20, 21, 22, 23, 25, 27, 28, 29, 30, 32, 33, 34, 35, 37, 38, 39, 40, 42, 44, 45, 46, 47, 49, 50, 51, 52, 54, 56, 57, 58, 59, 61, 62, 63, 64, 66, 67, 68, 69, 71, 73, 74, 75, 76, 78, 79, 80, 81, 83, 85, 86, 87, 88, 90, 91, 92, 93, 95, 97, 98, 99, 100, 102, 103, 104, 105, 107

Offset

1,2

Comments

See A187950, A187969.

Links

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

Mathematica

r=2^(1/2);
seqA=Table[Floor[(n+3)r]-Floor[n*r]-Floor[3r], {n, 1, 220}]   (* A187969 *)
Flatten[Position[seqA, 0] ]   (* A187970 *)
Flatten[Position[seqA, 1] ]   (* A187971 *)

Crossrefs

Cf. A187950, A187969, A187971.

Sequence in context: A047207 A266728 A039132 * A122488 A241403 A287727

Adjacent sequences: A187967 A187968 A187969 * A187971 A187972 A187973

Keyword

nonn

Author

Clark Kimberling, Mar 17 2011

Status

approved