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

finite curvature of the primes [Fwd: SEQ FROM Roger L. Bagula]

Expand Messages
  • Roger Bagula
    ... Subject: SEQ FROM Roger L. Bagula Date: Tue, 30 Sep 2003 16:56:09 -0400 (EDT) From: Reply-To: tftn@earthlink.net To:
    Message 1 of 1 , Sep 30, 2003
    • 0 Attachment
      -------- Original Message --------
      Subject: SEQ FROM Roger L. Bagula
      Date: Tue, 30 Sep 2003 16:56:09 -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 0,1,0,4,0,6,1,1,6,1,2,10,3,3,3,10,2,4,9,3,10,5,4,6,21,3,22,7,6,32,5,11,7,31,5,
      7,18,7,7,14,8,81,5,13,8,10,16,39,10,9,18,9,19,14,10,35,8,12,19,11,13,24,50,17,
      14,35,14,128,14,16,14,22,15,35,18,15,40,16,17,34,16,73,11,40,20,17,22,70,23,
      17,21,48,17,58,26,21,29,21,64,20,37,19,63,21,21,39,20,66,15,22,23,33,20,24,
      215,24,23,22,38,24,107,29,30,27,39,27,31,39,26,56,23,31,57,24,44,27,43,30,64,
      29,263,16,45,28,32,56,116,38,32,58,119,39,35,163,32,34,34,97,31,48,35,165,32,
      49,33,58,35,148,29,60,35,152,36,36,74,36,156,45,40,86,142,37,35,55,37,57,50,
      44,121,32,60,40,70,58,51,42,174,38
      %N A000001 A finite curvature sequence for the primes.
      %C A000001 Made as a ramp by multiplication by n.
      %F A000001 Floor[n*(
      0.25+(( a[[n]]-a[[n-1]])*(b[[n]]-2*b[[n-1]]+b[[n-2]])-(
      b[[n]]-b[[n-1]])*(a[[n]]-2*a[[n-1]]+a[[n-2]]))/
      Power[( a[[n]]-a[[n-1]])^2+( b[[n]]-b[[n-1]])^2,3/2])
      %t A000001 digits=200
      a=Table[Prime[n],{n,1,digits}]
      b=Table[(Prime[n]-Prime[n-1]),{n,2,digits+1}]
      c=Table[ Floor[
      n*(0.25+(( a[[n]]-a[[n-1]])*(b[[n]]-2*b[[n-1]]+b[[n-2]])-(
      b[[n]]-b[[n-1]])*(a[[n]]-2*a[[n-1]]+a[[n-2]]))/
      Power[( a[[n]]-a[[n-1]])^2+( b[[n]]-b[[n-1]])^2,3/2])],{n,3,digits}]
      %O A000001 3
      %K A000001 ,nonn,
      %A A000001 Roger L. Bagula (tftn@...), Sep 30 2003
      RH
      RA 209.178.182.199
      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.