|
| |
|
|
A187975
|
|
Positions of 1 in the zero-one sequence given by s(n)=[nr+5r]-[nr]-[5r], where r=sqrt(2), n>=1, [ ]=floor.
|
|
1
|
|
|
|
12, 24, 41, 53, 70, 82, 94, 111, 123, 140, 152, 164, 181, 193, 210, 222, 239, 251, 263, 280, 292, 309, 321, 333, 350, 362, 379, 391, 408, 420, 432, 449, 461, 478, 490, 502, 519, 531, 548, 560, 572, 589, 601, 618, 630, 647, 659, 671, 688, 700, 717, 729, 741, 758, 770, 787, 799, 816, 828, 840, 857, 869, 886, 898, 910, 927, 939, 956
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
See A187950.
|
|
|
LINKS
|
Table of n, a(n) for n=1..68.
|
|
|
EXAMPLE
|
A187975(n) is the position of the n-th 1 in the titular sequence (s(n)), which begins with 0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0.
|
|
|
MATHEMATICA
|
r=2^(1/2);
seqA=Table[Floor[(n+5)r]-Floor[n*r]-Floor[5r], {n, 1, 220}]
Flatten[Position[seqA, 0] ]
Flatten[Position[seqA, 1] ] (* A187975 *)
|
|
|
CROSSREFS
|
Cf. A187950.
Sequence in context: A053990 A026365 A051435 * A190566 A213739 A102067
Adjacent sequences: A187972 A187973 A187974 * A187976 A187977 A187978
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Clark Kimberling, Mar 17 2011
|
|
|
STATUS
|
approved
|
| |
|
|
