A112457 a(1)=1; a(n+1)=desc(a(n))+a(n), where desc(x) is the description of x as in A005150.
1, 12, 1124, 212338, 1211334656, 1112213525496172, 31221113152327355441607884, 1311223113111543352330284851467051780698, 111321221321133115142315123621344927293054493947386362638861942616
Offset: 1
Examples
Example a(2)=11+1=12, a(3)=1112+12=1124.
Crossrefs
Cf. A109229.
Programs
-
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_