[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