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.
%I A288605 #14 Jun 20 2017 23:52:34 %S A288605 0,1,3,12,32,93,257,378,471,798,825,858,1127,1398,1497,1524,1533,6352, %T A288605 6969,7176,7269,7566,7971,20338,20371,21982,22009,25638,25665,25692, %U A288605 27969,39184,39211,42398,43129,43150,48637,48730,48757,49014,49041,49068,49095,49864 %N A288605 Position of first appearance of each integer in A088568 (number of 1's minus number of 2's in first n terms of A000002). %C A288605 For the definition of this sequence we assume A088568(0) = 0. %e A288605 A088568(12) = -2 is the first appearance of -2 in A088568, so 12 belongs to the sequence. %e A288605 A088568(32) = 2 is the first appearance of 2, so 32 belongs to the sequence. %t A288605 Map[First, Values@ #] - 1 &@ PositionIndex@ Prepend[#, 0] &@ MapIndexed[3 First@ #2 - 2 #1 &, Accumulate@ Prepend[Nest[Flatten[Partition[#, 2] /. {{2, 2} -> {2, 2, 1, 1}, {2, 1} -> {2, 2, 1}, {1, 2} -> {2, 1, 1}, {1, 1} -> {2, 1}}] &, {2, 2}, 25], 1]] (* _Michael De Vlieger_, Jun 12 2017, after _Birkas Gyorgy_ at A000002 *) %Y A288605 Cf. A000002, A010120, A088568, A187831. %K A288605 nonn %O A288605 1,3 %A A288605 _Gus Wiseman_, Jun 11 2017