A173578 a(n) = a(n-1) + A073053(a(n-1)).

1, 12, 124, 337, 370, 493, 616, 829, 1042, 1356, 1490, 1714, 1848, 2162, 2476, 2790, 3014, 3238, 3462, 3776, 3910, 4044, 4448, 4852, 5166, 5390, 5524, 5748, 5972, 6106, 6420, 6824, 7228, 7542, 7766, 7990, 8124, 8438, 8752, 8976, 9200, 9514, 9648, 9962

Offset

1,2

Comments

A073053 sequence is operator DENEAT: concatenate number of even digits in n, number of odd digits and total number of digits.

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Formula

a(n) = a(n-1)+ A073053(a(n-1)).

Maple

A173578 := proc(n)
    option remember;
    if n = 1 then
        1;
    else
        procname(n-1)+A073053(procname(n-1)) ;
    end if;
end proc:
seq(A173578(n), n=1..20) ; # R. J. Mathar, Jul 13 2012

Mathematica

deneat[n_]:=Module[{idn=IntegerDigits[n]}, FromDigits[ Flatten[ IntegerDigits/@ {Count[ idn, _?EvenQ], Count[ idn, _?OddQ], Length[ idn]}]]]; NestList[ #+deneat[ #]&, 1, 50] (* Harvey P. Dale, Aug 13 2021 *)

Crossrefs

Sequence in context: A061088 A176556 A175252 * A291065 A366634 A273586

Adjacent sequences: A173575 A173576 A173577 * A173579 A173580 A173581

Keyword

easy,nonn,base

Author

Paolo P. Lava & Giorgio Balzarotti, Mar 05 2010

Status

approved