|
|
A112457
|
|
a(1)=1; a(n+1)=desc(a(n))+a(n), where desc(x) is the description of x as in A005150.
|
|
0
|
|
|
1, 12, 1124, 212338, 1211334656, 1112213525496172, 31221113152327355441607884, 1311223113111543352330284851467051780698, 111321221321133115142315123621344927293054493947386362638861942616
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
Example a(2)=11+1=12, a(3)=1112+12=1124.
|
|
PROG
|
(Perl) #!/usr/bin/perl -l use strict; use warnings; use bigint; $_=1; { print my $o=$_; s/((\d)\2*)/(length $1).$2/ge; $_+=$o; <>, redo; } __END__
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
Michele Dondi (blazar(AT)lcm.mi.infn.it), Sep 06 2005
|
|
STATUS
|
approved
|
|
|
|