[seqfan] Re: Four, Nine, Eighteen, ...

[M. F. Hasler]

On Mon, Jan 4, 2016 at 12:12 PM, Hans Havermann <gladhobo at teksavvy.com> wrote:
>> 4, 2, 10, 8, 9, 16, 18, 25, 40, 48, 55, 79, 89, 93, 99, 107,
>> 116, 127, 141, 145, 151, 155, 181, 182, 187, 194, 203, ...
>
> How about 4, 2, 10, 8, 9, 16, 18, 25, 33, 40, 50, 55, 60, 70, 78, 81, 83, 98,
> 99, 119, 125, 133, 139, 153, 155, 157, 168, 188, 201, ... instead?

This little (ugly) PARI script (using English() from A052360):
{my(a=4,s=[],u=0,E(k)=select(t->t>"@",Vec(English(k))));for(n=1,99,print1(a",");s=concat(s,E(a));
u+=1<<a;for(k=1,9e9,!bittest(u,k)&&E(k)[-1..-1]==if(k<=#s,s[k..k],E(k)[k-#s..k-#s])&&(a=k)&&next(2)))}
confirms Hans' version:
4,2,10,8,9,16,18,25,33,40,50,55,60,70,78,81,83,98,99,119,125,133,
139,153,155,157,168,188,201,215,217,221,241,277,293,331,337,365,
367,368,378,394,395,402,410,419,423,425,434,435,437,448,451,467,
473,479,484,494,495,500,506,512,523,528,531,533,539,544,545,561,...
The number 2016 does not occur, nor does 366, its number of days.
Submitted as https://oeis.org/draft/A266851
-- 
Maximilian