login
A109229
Describe and add.
1
1, 12, 1124, 212338, 11434656, 2124676182, 215338937900, 2011338654109729, 20314234480170281558, 20317265802504533296, 50431498946030705115, 50834622289546876944, 50937835732083050773, 50937875857418523592
OFFSET
1,2
COMMENTS
Start with a(1) = 1.
Describe a(1): 11 (one "1").
Add a(1) to its description to obtain a(2):
a(2) = 1 + 11 = 12.
Describe a(2): 1112.
Add a(2) to its description to obtain a(3):
a(3) = 12 + 1112 = 1124.
Describe a(3): 211214.
Add a(3) to its description to obtain a(4):
a(4) = 1124 + 211214 = 212338.
Describe a(4): 11222318.
Add a(4) to its description to obtain a(5):
a(5) = 212338 + 11222318 = 11434656.
PROG
(Perl) -Mbigint -wle '$n=$a=1; while (1) { print "$n: $a"; ++$n; $a = desc($a) + $a } sub desc { my %a; ++$a{$_} for split //, shift; join "", map +($a{$_}, $_), sort { $a <=> $b } keys %a }'
CROSSREFS
Sequence in context: A325906 A181718 A004073 * A112457 A091782 A291952
KEYWORD
base,easy,nonn
AUTHOR
STATUS
approved