[seqfan] Re: need help with new sequences

[Meeussen Wouter (bkarnd)]

my 2 (two...) cents worth up to 10^6:

 A161590 
1, 3, 9, 29, 69, 2079, 3999, 6999, 10677, 20169
 A161592
0 "read 12334444", 111, 117, 1223, 78, 111177, 11127, 11144445, 11667,
1111113

---------- (* toxic code, do not inhale! read at your own risk  *)
rats[n_Integer]:=If[n===55666666667777, 0,
FromDigits[Sort[IntegerDigits[(n+FromDigits[Reverse[#]])& @
IntegerDigits[n]]]]]

it=Table[ Min[Take[#,-Length[#]+Position[#,Last[#],1,1] [[1,1]] ]]&
@NestWhileList[rats,k,UnsameQ,All],{k,1,999999}];
----------

apart from that, 
n=1111111111233 and 11144444445
                gives 111111117777
n=1111111111111111111111111111111111111233
                gives 111111111177777
n=1111222222222222222227
                gives 111111777
n=11444444444444445
                gives 1111115577777777     (period 8) and,
n=111144144555
		    gives 111111111288

with a funny period 11:
{77778888888888, 156666666777777, 233334444444489, 1112277777888888,
1111555566999, 111111111288, 222222339999, 1112222225556,
4444466667777,11112222222333, 33444444444444}
                 

Wouter.



-----Original Message-----
From: seqfan-bounces at list.seqfan.eu
[mailto:seqfan-bounces at list.seqfan.eu] On Behalf Of Tanya Khovanova
Sent: dinsdag 16 juni 2009 3:15
To: Sequence Fanatics Discussion list
Subject: [seqfan] need help with new sequences


Dear SeqFans,

I just submitted some sequences jointly with John Conway: 
A161590, A161592, A161593, A161594, A161596, A161597, A161598, A161600.

As we didn't have much time this was done in a hurry. I won't be able to
get back to these sequences for sometime. I will appreciate if someone
will check them and edit if needed. RATS sequences especially might need
editing, plus they need more terms.

I plan to write in my blog about the TITO algorithm: how Conway invented
it and so on.

Tanya



_______________________________________________

Seqfan Mailing list - http://list.seqfan.eu/

===============================
This email is confidential and intended solely for the use of the individual to whom it is addressed. 
If you are not the intended recipient, be advised that you have received this email in error and that any use, dissemination, forwarding, printing, or copying of this email is strictly prohibited.
You are explicitly requested to notify the sender of this email that the intended recipient was not reached.