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
KEYWORD
easy,nonn,base
AUTHOR
Paolo P. Lava & Giorgio Balzarotti, Mar 05 2010
STATUS
approved