[seqfan] Re: A139442

[T. D. Noe]

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/