[seqfan] Re: A235466

[zak seidov]

My greedy Mma:

Select[Prime[Range[100000]], Max[IntegerDigits[ #, 9]] == 1 && PrimeQ[FromDigits[ IntegerDigits[ #, 9], 2]] &]

gives the same first digits as in A235466:

{739, 811, 6571, 59779, 532261, 591301}.

Best,
Zak



>________________________________
> From: Harvey P. Dale <hpd at hpdale.org>
>To: Sequence Fanatics Discussion list <seqfan at list.seqfan.eu> 
>Sent: Thursday, October 9, 2014 11:18 PM
>Subject: [seqfan] A235466
> 
>
>          There seems to be something wrong with the above sequence.  When I implement the definition, I get lots of terms that don't appear in the online sequence.  In addition, even the example seems wrong, since 1011 in base 2 is 11, not 19.  Am I misunderstanding something?
>          Best,
>          Harvey
>
>_______________________________________________
>
>Seqfan Mailing list - http://list.seqfan.eu/
>
>
>