[seqfan] Re: A085553

[Harvey P. Dale]

	Thanks to Franklin.  I have added Mathematic programs to both A085553 and A085554.

	Best,

	Harvey

-----Original Message-----
From: SeqFan [mailto:seqfan-bounces at list.seqfan.eu] On Behalf Of Frank Adams-Watters
Sent: Thursday, January 15, 2015 6:57 PM
To: seqfan at list.seqfan.eu
Subject: [seqfan] Re: A085553

it looks like A085553 and A085554 got switched. We should switch the names.

Franklin T. Adams-Watters

-----Original Message-----
From: Harvey P. Dale <hpd at hpdale.org>
To: Sequence Fanatics Discussion list <seqfan at list.seqfan.eu>
Sent: Thu, Jan 15, 2015 5:43 pm
Subject: [seqfan] A085553


	I get entirely different terms for the above sequence using this Mathematica
program:

		Transpose[Select[Table[x^2+{2,4},{x,1000}],AllTrue[#,PrimeQ]&]][[2]]

I get the following terms: 5, 13, 229, 1093, 2029, 3253, 13693, 21613, 59053, 65029, 91813, 140629, 178933, 199813, 205213, 227533, 328333, 567013, 700573, 804613, 815413, 1071229, 2241013, 3629029, 4223029, 4347229, 4809253, 5212093, 5919493, 6185173, 6426229, 6671893, 7601053.

	Am I misunderstanding something?

	Best,

	Harvey


_______________________________________________

Seqfan Mailing list - http://list.seqfan.eu/


  

_______________________________________________

Seqfan Mailing list - http://list.seqfan.eu/