1,1
3^2 +- 4 -> ( 5,13) Primes,
5^2 +- 6 -> (19,31) Primes
Select[Prime[Range[800]], PrimeQ[ #^2 - (# + 1)] && PrimeQ[ #^2 + (# + 1)] &]
Sequence in context: A097144 A085749 A125957 this_sequence A102295 A102846 A100003
Adjacent sequences: A137457 A137458 A137459 this_sequence A137461 A137462 A137463
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), Apr 21 2008
Search completed in 0.002 seconds