A112514 - OEIS

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

%S 4,14,1114,3114,132114,31131214,23411214,22132431,32212314,23322114,

%T 32232114,23322114,32232114,23322114,32232114,23322114,32232114,

%U 23322114,32232114

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

%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