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

cross between Conway and Hofstadter sequences that works [Fwd: SEQ FROM Roger L. Bagula]

Expand Messages
  • Roger Bagula
    ... Subject: SEQ FROM Roger L. Bagula Date: Mon, 1 Sep 2003 10:36:45 -0400 (EDT) From: Reply-To: tftn@earthlink.net To:
    Message 1 of 1 , Sep 1, 2003


      -------- Original Message --------
      Subject:SEQ FROM Roger L. Bagula
      Date:Mon, 1 Sep 2003 10:36:45 -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 1,1,2,3,3,4,5,5,6,6,7,7,9,8,10,9,11,11,12,11,13,13,15,13,16,15,17,16,18,15,19,
      20,20,16,21,21,22,20,23,22,25,22,26,24,26,24,28,24,29,28,31,26,32,29,33,32,36,
      28,35,36,37,31,39,36,39,32,41,38,39,39,43,38,41,41,41,42,43,42,44,41,47,46,46,
      40,48,44,50,44,50,46,50,46,52,46,53,54,55,50,57,54,57,50,60,53,58,56,63,52,62,
      52,61,67,65,57,64,61,69,65,68,59,66,71,69,65,75,68,73,69,75,70,76,63,78,75,77,
      72,77,69,78,74,82,74,80,75,80,75,79,80,80,78,83,80,82,79,86,82,87,85,89,84,83,
      86,87,85,89,90,89,86,90,81,93,94,90,81,93,99,99,88,94,90,96,90,98,90,99,104,
      99,90,103,104,103,94,103,104,103,98,107,104,106,100,111,100
      %N A000001 A Batrachian sequence that switches between Conway's and Hofstadter's sequences modulo 2.
      %C A000001 The case taking the two sequences in the opposite oder doesn'r work in Mathematica. Other versions of switches by modular functions of n on these sequences also give some new sequences.
      %F A000001 Hc[n] =Hc[(n - Hc[n-1])*(1-Mod[n,2])+Hc[n-1]*(Mod[n,2])] + 
          Hc[(n - Hc[n-2])*(1-Mod[n,2])+(n-Hc[n-1])*(Mod[n,2])]
      %t A000001 Hc[n_Integer?Positive] :=	Hc[n] =Hc[(n - Hc[n-1])*(1-Mod[n,2])+Hc[n-1]*(Mod[n,2])] + Hc[(n - Hc[n-2])*(1-Mod[n,2])+(n-Hc[n-1])*(Mod[n,2])]
      Hc[1] = Hc[2] = 1
      Digits=202
      a=Table[Hc[n],{n,1,Digits}]
      %Y A000001 Cf. A004001,A005185
      %O A000001 1
      %K A000001 ,nonn,
      %A A000001 Roger L. Bagula (tftn@...), Sep 01 2003
      RH 
      RA 209.179.57.139
      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/ 
      
      
    Your message has been successfully submitted and would be delivered to recipients shortly.