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.

A074263 Positions of '22' in Kolakoski sequence A000002.

This page as a plain text file.
%I A074263 #10 Jun 18 2013 06:06:38
%S A074263 2,8,11,18,26,35,38,44,53,56,62,65,74,80,83,89,92,99,107,110,119,126,
%T A074263 135,138,144,150,153,162,165,171,180,188,197,203,206,212,215,224,231,
%U A074263 234,242,249,258,261,269,278,281,287,296,299,305,308,314,317,324,332
%N A074263 Positions of '22' in Kolakoski sequence A000002.
%H A074263 Nathaniel Johnston, <a href="/A074263/b074263.txt">Table of n, a(n) for n = 1..10000</a>
%e A074263 Kolakoski sequence begins 1,2,2,1,1,2,1,2,2,1,2,2,1,1,... so the sequence includes 2, 8, and 11.
%t A074263 a2 = {1, 2, 2}; Do[ a2 = Join[a2, {1 + Mod[n - 1, 2]}], {n, 3, 300}, {i, 1, a2[[n]]}]; Split[a2] /. {2, 2} -> {0, 2} // Flatten // Position[#, 0] & // Flatten (* _Jean-François Alcover_, Jun 18 2013 *)
%Y A074263 Cf. A074262.
%K A074263 nonn,easy
%O A074263 1,1
%A A074263 _Jon Perry_, Sep 20 2002
%E A074263 Extended and offset changed by _Nathaniel Johnston_, May 02 2011