|
| |
| |
|
|
|
1, 6, 8, 9, 13, 17, 22, 23, 27, 31, 36, 37, 41, 45, 50, 51, 55, 59, 63, 68, 70, 71, 75, 79, 83, 88, 89, 94, 96, 97, 101, 105, 110, 111, 115, 119, 124, 125, 129, 133, 137, 142, 144, 145, 149, 153, 158, 159, 163, 167, 172, 173, 177, 181, 185, 190, 192, 193
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
Conjecture: 0 < n*r - a(n) < 6 for n>=1, where r = 2+sqrt(2).
|
|
|
LINKS
|
Clark Kimberling, Table of n, a(n) for n = 1..10000
|
|
|
EXAMPLE
|
As a word, A285274 = 011110..., in which 0 is in positions 1,6,8,9,13,...
|
|
|
MATHEMATICA
|
s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 1, 1, 1}}] &, {0}, 10]; (* A285274 *)
Flatten[Position[s, 0]]; (* A285275 *)
Flatten[Position[s, 1]]; (* A285276 *)
|
|
|
CROSSREFS
|
Cf. A285276, A285277, A285278.
Sequence in context: A191980 A304412 A161982 * A117096 A067812 A337543
Adjacent sequences: A285272 A285273 A285274 * A285276 A285277 A285278
|
|
|
KEYWORD
|
nonn,easy
|
|
|
AUTHOR
|
Clark Kimberling, Apr 24 2017
|
|
|
STATUS
|
approved
|
| |
|
|
