1,1

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

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

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

Sequence in context: A124130 A124132 A064291 this_sequence A127307 A099403 A037015

Adjacent sequences: A137470 A137471 A137472 this_sequence A137474 A137475 A137476

nonn

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