login
A173578
a(n) = a(n-1) + A073053(a(n-1)).
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
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
KEYWORD
easy,nonn,base
AUTHOR
STATUS
approved