|
|
A287073
|
|
Positions of 0 in A287072.
|
|
4
|
|
|
1, 5, 8, 10, 13, 17, 19, 22, 26, 29, 33, 35, 38, 42, 45, 47, 50, 54, 57, 61, 63, 66, 70, 73, 75, 78, 82, 84, 87, 91, 94, 96, 99, 103, 106, 110, 112, 115, 119, 122, 124, 127, 131, 133, 136, 140, 143, 147, 149, 152, 156, 159, 161, 164, 168, 170, 173, 177, 180
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {2, 1}, 2 -> 0}] &, {0}, 10] (* A287072 *)
Flatten[Position[s, 0]] (* A287073 *)
Flatten[Position[s, 1]] (* A287074 *)
Flatten[Position[s, 2]] (* A287075 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|