Errors

[zak seidov]

Yes, you are right, at least as to A073053:

newA073053= (* it's Jason's one
*){11,101,11,101,11,101,11,101,11,112,22,112,22,112,22,112,22,112,22,202,112,202,112,202,112,202,112,202,112,112,22,112,22,112,22,112,22,112,22,202,112,202,112,202,112,202,112,202,112,112,22,112,22,112,22,112,22,112,22,202,112,202,112,202,112,202,112,202,112,112,22,112,22,112,22,112,22,112,22,202,112};
s={};Do[id=IntegerDigits[n];ev=Select[id,EvenQ];ne=Select[id,OddQ];fd=FromDigits[{Length[ev],
Length[ne], Length[id]}];
  s=Append[s,fd],{n,81}];SameQ[newA073053-s]
True

Zak

--- Jason Earls <jcearls at cableone.net> wrote:

> 
> There are errors in A073053 and A073054.
> 
> The terms should be
> 
>
11,101,11,101,11,101,11,101,11,112,22,112,22,112,22,112,22,112,22,202,112,
>
202,112,202,112,202,112,202,112,112,22,112,22,112,22,112,22,112,22,202,112,
>
202,112,202,112,202,112,202,112,112,22,112,22,112,22,112,22,112,22,202,112,
>
202,112,202,112,202,112,202,112,112,22,112,22,112,22,112,22,112,22,202,112,
> 
> and
> 
>
5,2,5,2,5,2,5,2,5,2,4,2,4,2,4,2,4,2,4,3,2,3,2,3,2,3,2,3,2,2,4,2,4,2,4,2,4,2,
>
4,3,2,3,2,3,2,3,2,3,2,2,4,2,4,2,4,2,4,2,4,3,2,3,2,3,2,3,2,3,2,2,4,2,4,2,4,2,
>
4,2,4,3,2,3,2,3,2,3,2,3,2,2,4,2,4,2,4,2,4,2,4,2,1,2,1,2,1,2,1,2,1,1,5,1,5,1,
>
5,1,5,1,5,2,1,2,1,2,1,2,1,2,1,1,5,1,5,1,5,1,5,1,5,2,1,2,1,2,1,2,1,2,1,1,5,1,
> 5,1,5,1,5,1,5,
> 
> Am I wrong?
> 
> And for A073054, what is the least n such that a(n)
> > 5?
> 
> --Jason
> 
> 
> 



		
__________________________________ 
Discover Yahoo! 
Have fun online with music videos, cool games, IM and more. Check it out! 
http://discover.yahoo.com/online.html