|
|
A287340
|
|
Positions of 2 in A287337.
|
|
4
|
|
|
9, 11, 15, 17, 27, 29, 33, 35, 39, 41, 45, 47, 49, 51, 59, 61, 71, 73, 77, 79, 81, 83, 91, 93, 109, 111, 115, 117, 127, 129, 133, 135, 139, 141, 145, 147, 149, 151, 159, 161, 171, 173, 177, 179, 181, 183, 191, 193, 203, 205, 209, 211, 213, 215, 223, 225, 235
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {2, 0}, 2 -> 0}] &, {0}, 12] (* A287337 *)
Flatten[Position[s, 0]] (* A287338 *)
Flatten[Position[s, 1]] (* A287339 *)
Flatten[Position[s, 2]] (* A287340 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|