[seqfan] Re: A139442
T. D. Noe
noe at sspectra.com
Thu Jun 13 23:40:58 CEST 2013
1 - 8 = -7 which is not a prime. So please do not add 1.
Tony
At 4:32 PM -0500 6/13/13, Ray Chandler wrote:
>> -----Original Message-----
>>
>> I get quite different terms for the above sequence. My terms agree
>> with the first three terms; then I find an additional term not now in the
>> sequence; thereafter, my terms are almost (but not quite) always one
>> greater than the terms in the sequence currently. It seems to me to be
>> primarily an index disagreement.
>>
>> Here is my Mma program:
>>
>> With[{pms=FoldList[Times,1,Prime[Range[500]]]},Flatten[Position[pms,_?(Pr
>> imeQ[#/2-8]&)]]]
>>
>> If the program and the sequence terms could be checked, I'll be glad
>> to update the sequence accordingly.
>>
>
>
>I believe Artur's sequence is correct except it should have 1 prepended. I
>would correct his code by starting with a={1}.
>
>Your numbers are off by one index since the pms list starts with 1.
>Ray
>
>
>_______________________________________________
>
>Seqfan Mailing list - http://list.seqfan.eu/
More information about the SeqFan
mailing list