-------- Original Message --------

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/