1,1

3^3 +- 2^2 -> (23,31) Primes,

7^3 +- 6^2 -> (307,379) Primes

Select[Prime[Range[900]], PrimeQ[ #^3-(#-1)^2]&&PrimeQ[ #^3+(#-1)^2]&]

Adjacent sequences: A137471 A137472 A137473 this_sequence A137475 A137476 A137477

Sequence in context: A083201 A004060 A028491 this_sequence A071087 A038691 A082718

nonn

Vladimir Orlovsky (4vladimir(AT)gmail.com), Apr 21 2008