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

Author

Paolo P. Lava & Giorgio Balzarotti, Mar 05 2010

Keywords

• easy
• nonn
• base

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

Programs

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 *)

Formula

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