%I #23 Oct 28 2024 18:49:33
%S 1,3,5,6,8,11,12,15,18,20,27,33,35,39,41,45,48,50,54,65,66,68,86,87,
%T 92,96,99,107,116,122,123,126,138,140,149,150,156,159,161,164,165,167,
%U 170,177,182,185,188,191,192,198,200,207,209,219,228,237,239,240,242,252
%N Numbers n such that (n+1)^2 - n^3 is a (positive or negative) prime.
%H G. C. Greubel, <a href="/A154111/b154111.txt">Table of n, a(n) for n = 1..2000</a>
%t Select[Range[300],PrimeQ[(#+1)^2-#^3]&] (* _Harvey P. Dale_, Dec 06 2015 *)
%o (Magma) [n: n in [0..500] | IsPrime((n+1)^2-n^3)]; // _Vincenzo Librandi_, Nov 26 2010
%o (PARI) is(n)=isprime(abs((n+1)^2 - n^3)) \\ _Charles R Greathouse IV_, Sep 02 2016
%Y Cf. A140719, A005097.
%K nonn,easy,changed
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, Jan 04 2009