A154111 Numbers n such that (n+1)^2 - n^3 is a (positive or negative) prime.
1, 3, 5, 6, 8, 11, 12, 15, 18, 20, 27, 33, 35, 39, 41, 45, 48, 50, 54, 65, 66, 68, 86, 87, 92, 96, 99, 107, 116, 122, 123, 126, 138, 140, 149, 150, 156, 159, 161, 164, 165, 167, 170, 177, 182, 185, 188, 191, 192, 198, 200, 207, 209, 219, 228, 237, 239, 240, 242, 252
Offset: 1
Links
- G. C. Greubel, Table of n, a(n) for n = 1..2000
Programs
-
Magma
[n: n in [0..500] | IsPrime((n+1)^2-n^3)]; // Vincenzo Librandi, Nov 26 2010
-
Mathematica
Select[Range[300],PrimeQ[(#+1)^2-#^3]&] (* Harvey P. Dale, Dec 06 2015 *)
-
PARI
is(n)=isprime(abs((n+1)^2 - n^3)) \\ Charles R Greathouse IV, Sep 02 2016