cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A287068 Positions of 1 in A287066.

This page as a plain text file.
%I A287068 #4 May 21 2017 21:29:42
%S A287068 1,5,7,8,11,12,14,18,19,21,24,28,30,31,33,36,40,41,45,47,48,51,52,54,
%T A287068 57,61,62,66,68,69,71,75,77,78,81,82,84,88,89,91,94,98,99,103,105,106,
%U A287068 108,112,114,115,118,119,121,124,128,130,131,134,135,137,141
%N A287068 Positions of 1 in A287066.
%H A287068 Clark Kimberling, <a href="/A287068/b287068.txt">Table of n, a(n) for n = 1..10000</a>
%t A287068 s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 2}, 2 -> 0}] &, {1}, 10] (* A287066 *)
%t A287068 Flatten[Position[s, 0]]  (* A287067 *)
%t A287068 Flatten[Position[s, 1]]  (* A287068 *)
%t A287068 Flatten[Position[s, 2]]  (* A287069 *)
%Y A287068 Cf. A287066, A287067, A287069.
%K A287068 nonn,easy
%O A287068 1,2
%A A287068 _Clark Kimberling_, May 21 2017