Describe and add

Michele Dondi blazar at pcteor1.mi.infn.it
Tue Sep 6 10:57:53 CEST 2005


On Thu, 18 Aug 2005, Eric Angelini wrote:

> Could please someone compute and analyse this sequence?
>
> Start with a(1) = 1
> Describe a(1) --> = 11 (one "1")
> Add a(1) to it's description: 1 + 11 = 12
[and so on...]

I can't help with the analysis, and I doubt that anything as simple as 
what is found for the sequence of audioactive elements could be said - but 
I would be happy to be contradicted. However I can help with a quick perl 
script:


#!/usr/bin/perl -l

use strict;
use warnings;
use bigint;

$_=1;
{
     print my $o=$_;
     s/((\d)\2*)/(length $1).$2/ge;
     $_+=$o;
     <>, redo;
}

__END__


Output:

1

12

1124

212338

1211334656

1112213525496172

31221113152327355441607884

1311223113111543352330284851467051780698

111321221321133115142315123621344927293054493947386362638861942616

311312112211131221232115111412131115111213161211243740343033324425294734255535516245454370615560667973830274103732

1321131112212231131122111213122115311411121113311531121113111611122112452629253224272531563339232924322532242625512536355352484547475838465750368051618862646083796870789687941287275044


Michele
-- 
Never attribute to malice that which
can be adequately explained by stupidity
- "Hanlon's Razor"





More information about the SeqFan mailing list