[seqfan] Re: A139442
Ray Chandler
rayjchandler at sbcglobal.net
Thu Jun 13 23:32:47 CEST 2013
> -----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
More information about the SeqFan
mailing list