login
A187978
Positions of 1 in A187976; complement of A187977.
3
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Mar 17 2011
STATUS
approved