|
|
A112512
|
|
Say what you see in previous term, same as A063850, but starting with 2.
|
|
4
|
|
|
2, 12, 1112, 3112, 132112, 311322, 232122, 421311, 14123113, 41141223, 24312213, 32142321, 23322114, 32232114, 23322114, 32232114, 23322114, 32232114
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Eventually periodic, eventually identical (to a shift of) A063850.
|
|
LINKS
|
|
|
PROG
|
(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__
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
Michele Dondi (blazar(AT)lcm.mi.infn.it), Sep 09 2005
|
|
STATUS
|
approved
|
|
|
|