English: The lines show the growth of the numbers of digits in the look-and-say sequences with starting points 23 (red), 1 (blue), 13 (violet), 312 (green). These lines (when represented in a logarithmic scale) tend to straight lines whose slopes coincide with Conway's constant.
Date
Source
Plotted in Maple and converted to SVG format in Inkscape, using the following Maple code:
> with(plots);
> f := proc (n) options operator, arrow; `mod`(n, 10) end proc;
> g := proc (n) options operator, arrow; `mod`(floor((1/10)*n), 10) end proc;
> h := proc (n) if 1 <= evalf(log10(n)) then if f(n) = g(n) then return 1+h(floor((1/10)*n)) else return 1 end if else return 1 end if end proc;
> k := proc (n) if 0 < n then return f(n)+10*h(n)+10^(floor(log10(f(n)+10*h(n)))+1)*k(floor(n/10^h(n))) else return 0 end if end proc;
> sequence := proc (N) local i; for i to 19 do N[i+1] := [][i][2])] end do end proc;
> sequencedigits := proc (N) local i; for i to 20 do N[i][2] := floor(log10(N[i][2])) end do end proc;
> AA := vector(20); AA[1] := [1, 23]; sequence(AA); sequencedigits(AA); a := logplot(AA, color = red);
> BB := vector(20); BB[1] := [1, 1]; sequence(BB); sequencedigits(BB); b := logplot(BB, color = blue);
> CC := vector(20); CC[1] := [1, 13]; sequence(CC); sequencedigits(CC); c := logplot(CC, color = violet);
> DD := vector(20); DD[1] := [1, 312]; sequence(DD); sequencedigits(DD); d := logplot(DD, color = green);
> display(a, b, c, d, view = [1 .. 20, 1 .. 10000]);
de partager – de copier, distribuer et transmettre cette œuvre
d’adapter – de modifier cette œuvre
Sous les conditions suivantes :
paternité – Vous devez donner les informations appropriées concernant l'auteur, fournir un lien vers la licence et indiquer si des modifications ont été faites. Vous pouvez faire cela par tout moyen raisonnable, mais en aucune façon suggérant que l’auteur vous soutient ou approuve l’utilisation que vous en faites.
partage à l’identique – Si vous modifiez, transformez ou vous basez sur cet élément, vous devez distribuer votre contribution sous une [[ccorg:share-your-work/licensing-considerations/compatible-licenses
|license identique ou compatible]] à celle de l’original.
Vous avez la permission de copier, distribuer et modifier ce document selon les termes de la GNU Free Documentation License version 1.2 ou toute version ultérieure publiée par la Free Software Foundation, sans sections inaltérables, sans texte de première page de couverture et sans texte de dernière page de couverture. Un exemplaire de la licence est inclus dans la section intitulée GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue
Vous pouvez choisir l’une de ces licences.
Légendes
Ajoutez en une ligne la description de ce que représente ce fichier
{{Information |Description={{en|1=The line are the number of digits in the en:look-and-say sequence with starting point 23 (red), 1 (blue), 13 (violet), 312 (green). The lines tend to straight lines whose slopes coincide with Conway's constant.}} |So