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.

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).

This page as a plain text file.
%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