A112513 - OEIS

%I #1 Sep 21 2005 03:00:00

%S 3,13,1113,3113,2321,221311,223113,222321,421311,14123113,41141223,

%T 24312213,32142321,23322114,32232114,23322114,32232114,23322114,

%U 32232114,23322114

%N Same as A063850, Say what you see in previous term, but starting with 3.

%C Eventually periodic.

%o (Perl) #!/usr/bin/perl -l use strict; use warnings; die "Usage: $0 <number> " unless @ARGV==1; $_=shift; { print; my (%cnt, %saw); $cnt{$_}++ for /./g; s/./ $saw{$&}++ ? '' : $cnt{$&} . $& /ge; <>, redo; } __END__

%Y Cf. A005150, A005151, A063850, A112512-A112515.

%K base,easy,nonn

%O 1,1

%A Michele Dondi (blazar(AT)lcm.mi.infn.it), Sep 09 2005