Loading ...
Sorry, an error occurred while loading the content.

A commutator sequence between Conway's sequence and the primes[Fwd: SEQ FROM Roger L. Bagula]

Expand Messages
  • Roger Bagula
    ... Subject: SEQ FROM Roger L. Bagula Date: Wed, 1 Oct 2003 16:07:23 -0400 (EDT) From: Reply-To: tftn@earthlink.net To:
    Message 1 of 1 , Oct 1, 2003
    • 0 Attachment
      -------- Original Message --------
      Subject: SEQ FROM Roger L. Bagula
      Date: Wed, 1 Oct 2003 16:07:23 -0400 (EDT)
      From: <njas@...>
      Reply-To: tftn@...
      To: njas@...
      CC: tftn@...



      The following is a copy of the email message that was sent to njas
      containing the sequence you submitted.

      All greater than and less than signs have been replaced by their html
      equivalents. They will be changed back when the message is processed.

      This copy is just for your records. No reply is expected.
      Subject: NEW SEQUENCE FROM Roger L. Bagula


      %I A000001
      %S A000001 2,1,1,2,3,2,3,5,4,4,2,5,6,7,9,12,10,4,5,2,4,5,5,9,9,11,12,7,8,10,12,15,14,14,
      16,13,14,19,16,15,13,14,10,7,10,9,14,19,15,15,16,14,14,16,3,9,14,16,17,20,21,
      27,39,41,36,37,36,38,36,30,34,34,33,30,31,32,26,28,26,29,29,19,25,14,15,18,15,
      16,14,14,9,11,13,4,5,5,2,3,4,14,19,25,28,33,34,39,39,40,45,44,47,52,45,46,53,
      57,44,48,52,57,58,62,64,68,72,77,83,89,91,88,79,74,68,69,66,68,65,66,66,66,63,
      67,61,56,52,47,55,46,45,37,42,41,35,36,41,43,46,42,38,35,34,36,36,24,17,20,18,
      11,13,9,10,10,11,1,4,13,5,3,1,6,9,12,8,5,10,13,17,22,21,37,39,46,41,41,39,42,
      43,47,51,49
      %N A000001 A commutator sequence between Conway's sequence and the primes.
      %C A000001 This sequence has a nice graph. ListPlot[a,PlotRange->All,PlotJoined->True]
      %F A000001 a(n) = 1+Abs[Prime[Conway[n]]-Conway[Prime[n]]]
      %t A000001 Conway[n_Integer?Positive] :=
      Conway[n] =Conway[Conway[n-1]] + Conway[n - Conway[n-1]]
      Conway[1] = Conway[2] = 1
      digits=200
      a=Table[1+Abs[Prime[Conway[n]]-Conway[Prime[n]]],{n,1,digits}]
      %Y A000001 Cf. A004001
      %O A000001 1
      %K A000001 ,nonn,
      %A A000001 Roger L. Bagula (tftn@...), Oct 01 2003
      RH
      RA 209.178.160.163
      RU
      RI



      --
      Respectfully, Roger L. Bagula
      tftn@..., 11759Waterhill Road, Lakeside,Ca 92040-2905,tel: 619-5610814 :
      URL : http://home.earthlink.net/~tftn
      URL : http://victorian.fortunecity.com/carmelita/435/




      [Non-text portions of this message have been removed]
    Your message has been successfully submitted and would be delivered to recipients shortly.