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

Subject: SEQ FROM Roger L. Bagula

Date: Fri, 31 Oct 2003 14:14:46 -0500 (EST)

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 3,7,19,31,59,61,73,97,131,139,167,173,181,211,223,277,317,331,347,509,571,953,

1039,1063,2311,2521,2719,3467,22093,27953,34231,46727,60611,105229,265739,

303049,450451,598841,676421,703763,2336993,11072701,13848803,1503181961,

13808181181,19026377261,54730729297,200560490131,2892214489673,18564761860301,

78339888213593,143581524529603,96888414202798247,525956867082542470777,

71237436024091007473549,16156160491570418147806951,64225891884294373371806141,

1004988035964897329167431269

%N A000001 Unique prime factors from Eculid's proof of infinite primes

%C A000001 These Euclid primes get very large very fast and represent

only a very few of the actual Primes.

%F A000001 Prime Factors of F[n_]=Product[Prime[i],{i,1,n}}+1

%t A000001 p[n_]=Product[Prime[i],{i,1,n}]

a=Table[FactorInteger[p[n]+1],{n,1,25}];

b=Flatten[a];

c=Delete[Union[b],1]

%O A000001 1

%K A000001 ,nonn,

%A A000001 Roger L. Bagula (

tftn@...), Oct 31 2003

RH

RA 209.178.146.96

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]