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.

A074295 Dominant (i.e., most populous) digit in Kolakoski sequence (A000002) when partitioned into groups of 7.

This page as a plain text file.
%I A074295 #9 Jul 29 2017 23:48:14
%S A074295 1,2,2,1,1,2,1,2,2,1,2,2,1,1,2,2,1,1,1,2,2,2,1,2,2,1,2,1,2,2,2,1,1,2,
%T A074295 1,2,1,1,2,1,2,1,2,2,2,1,1,2,1,2,1,2,2,2,1,1,2,1,2,1,1,2,1,1,2,2,1,1,
%U A074295 2,1,2,1,1,2,2,2,1,2,2,1,1,2,1,1,1,2,1
%N A074295 Dominant (i.e., most populous) digit in Kolakoski sequence (A000002) when partitioned into groups of 7.
%H A074295 Nathaniel Johnston, <a href="/A074295/b074295.txt">Table of n, a(n) for n = 1..10000</a>
%e A074295 Kolakoski : (1,2,2,1,1,2,1),(2,2,1,2,2,1,1),(2,1,1,2,2,1,2),... hence 1,2,2,...
%p A074295 lim:=400: s:=[1, 2, 2]: for n from 3 to lim do for i from 1 to s[n] do s:=[op(s), 1+((n-1)mod 2)]: od: od: lim2:=floor(nops(s)/7)-1: for n from 0 to lim2 do if(add(s[7*n+k],k=1..7)<=10)then printf("1, "): else printf("2, "): fi: od: # _Nathaniel Johnston_, May 01 2011
%Y A074295 Cf. A074292, A074293.
%K A074295 nonn,base,easy
%O A074295 1,2
%A A074295 _Jon Perry_, Sep 21 2002