A112515 -id:A112515 - cp's OEIS frontend

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

3, 13, 1113, 3113, 2321, 221311, 223113, 222321, 421311, 14123113, 41141223, 24312213, 32142321, 23322114, 32232114, 23322114, 32232114, 23322114, 32232114, 23322114

Offset: 1

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

Eventually periodic.

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

#!/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_

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

Original entry on oeis.org

4, 14, 1114, 3114, 132114, 31131214, 23411214, 22132431, 32212314, 23322114, 32232114, 23322114, 32232114, 23322114, 32232114, 23322114, 32232114, 23322114, 32232114

Offset: 1

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

Eventually periodic.

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

#!/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_

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Crossrefs

Programs

Perl