|
| |
|
|
A004958
|
|
Ceiling of n*tau^3.
|
|
5
| |
|
|
0, 5, 9, 13, 17, 22, 26, 30, 34, 39, 43, 47, 51, 56, 60, 64, 68, 73, 77, 81, 85, 89, 94, 98, 102, 106, 111, 115, 119, 123, 128, 132, 136, 140, 145, 149, 153, 157, 161, 166, 170, 174, 178, 183, 187, 191, 195, 200
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| This sequence, beginning at 5, gives the positions of 1 in the infinite binary word A188187; complement of A188188. {From Clark Kimberling, Mar 23 2011]
|
|
|
MATHEMATICA
| r=5^(1/2)); k=1;
t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r], {n, 1, 220}] (*A188187*)
Flatten[Position[t, 0]] (*A188188*)
Flatten[Position[t, 1]] (*A004958*)
|
|
|
CROSSREFS
| Cf. A188014, A188187, A188188.
Sequence in context: A198395 A190951 A057948 * A190887 A184479 A088346
Adjacent sequences: A004955 A004956 A004957 * A004959 A004960 A004961
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com).
|
| |
|
|
