%I #13 Mar 10 2020 15:31:40
%S 4,5,7,10,25,37,55,82,137,164,205,307,460,542,1057,1319,1583,1736,
%T 1976,2370,2921,3717,4380,4503,4965,5572,6308,6752,7446,10389,10659,
%U 12782,15585,15991,19884,20154,23374,23985,24638,26638,27802,30495,35981,45747,53975
%N Position of first repeat of the opening sequence of length n occurring after the first repeat of the opening sequence of length n-1 in the Kolakoski sequence (A000002).
%H Rémy Sigrist, <a href="/A074300/b074300.txt">Table of n, a(n) for n = 1..1103</a>
%H Rémy Sigrist, <a href="/A074300/a074300.txt">C program for A074300</a>
%e a(3)=7 because A000002 begins 1,2,2 and this first repeats at position 7.
%p lim:=1000: 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: k:=1: for n from 1 to 1400 do inseq:=true: for m from 1 to k do if(not s[n+m]=s[m])then inseq:=false:break: fi: od: if(inseq)then printf("%d, ",n+1): k:=k+1:fi: od: # _Nathaniel Johnston_, May 02 2011
%o (C) See Links section.
%Y Cf. A000002, A022294.
%K nonn
%O 1,1
%A _Jon Perry_, Sep 21 2002
%E Extended and edited by _John W. Layman_, Sep 28 2002
|