[seqfan] A085553

[Harvey P. Dale]

	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