|
| |
|
|
A284819
|
|
Positions of 1 in A284817.
|
|
3
|
|
|
|
3, 7, 9, 12, 15, 19, 21, 25, 27, 30, 34, 36, 39, 43, 45, 48, 51, 55, 57, 61, 63, 66, 69, 73, 75, 79, 81, 84, 88, 90, 93, 96, 100, 102, 106, 108, 111, 115, 117, 120, 123, 127, 129, 133, 135, 138, 142, 144, 147, 151, 153, 156, 159, 163, 165, 169, 171, 174, 177
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
This sequence and A284818 show that the nonperiodic complementary sequences A284776 and A284777 stay close to the odd positive integers, A005408, and even positive integers, A005843, respectively.
|
|
|
LINKS
|
Clark Kimberling, Table of n, a(n) for n = 1..10000
|
|
|
EXAMPLE
|
A284817 = (0,0,1,0,0,0,1,0,1,0,0,1,0,0...), so that a(1) = 3, a(2) = 7, a(3) = 9.
|
|
|
MATHEMATICA
|
s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 0, 1, 1}}] &, {0}, 7]; (* A284775 *)
u = Flatten[Position[s, 0]] ; (* A284776 *)
v = Flatten[Position[s, 1]]; (* A284777 *)
t = Table[2 n - 1 - u[[n]], {n, 1, 200}]; (* A284817 *)
Flatten[Position[t, 0]]; (* A284818 *)
Flatten[Position[t, 1]]; (* A284819 *)
|
|
|
CROSSREFS
|
Cf. A005843, A284776, A284818.
Sequence in context: A110404 A190366 A342699 * A190742 A289906 A190752
Adjacent sequences: A284816 A284817 A284818 * A284820 A284821 A284822
|
|
|
KEYWORD
|
nonn,easy
|
|
|
AUTHOR
|
Clark Kimberling, Apr 15 2017
|
|
|
STATUS
|
approved
|
| |
|
|
