1,1
7^3 +- 6 -> (337,349) Primes,
139^3 +- 138 -> (2685481,2685757) Primes
Select[Range[999], PrimeQ[ #^3-(#-1)]&&PrimeQ[ #^3+(#-1)]&]
Sequence in context: A126891 A095875 A071408 this_sequence A137379 A096676 A092863
Adjacent sequences: A137458 A137459 A137460 this_sequence A137462 A137463 A137464
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), Apr 21 2008
Search completed in 0.002 seconds