A112512 Say what you see in previous term, same as A063850, but starting with 2.
2, 12, 1112, 3112, 132112, 311322, 232122, 421311, 14123113, 41141223, 24312213, 32142321, 23322114, 32232114, 23322114, 32232114, 23322114, 32232114
Offset: 1
Programs
-
Perl
#!/usr/bin/perl -l use strict; use warnings; die "Usage: $0
" unless @ARGV==1; $=shift; { print; my (%cnt, %saw); $cnt{$}++ for /./g; s/./ $saw{$&}++ ? '' : $cnt{$&} . $& /ge; <>, redo; } _END_
Comments