A commutator sequence between Conway's sequence and the primes[Fwd: SEQ FROM Roger L. Bagula]
- -------- Original Message --------
Subject: SEQ FROM Roger L. Bagula
Date: Wed, 1 Oct 2003 16:07:23 -0400 (EDT)
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
%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,
%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 = Conway = 1
%Y A000001 Cf. A004001
%O A000001 1
%K A000001 ,nonn,
%A A000001 Roger L. Bagula (tftn@...), Oct 01 2003
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]