%I #17 Jan 20 2024 18:33:25
%S 1,2,4,5,6,7,9,10,11,12,16,19,20,32,34,37,42,44,45,49,51,52,56,60,62,
%T 70,72,74,75,77,79,81,89,90,95,96,97,100,101,104,105,111,114,115,121,
%U 126,131,136,145,151,154,156,161,171,174,175,180,182,191,199,200,202,207
%N Numbers k such that (k+1)^3 - k^2 is prime.
%H G. C. Greubel, <a href="/A154112/b154112.txt">Table of n, a(n) for n = 1..2000</a>
%e 2^3-1^2 = 7, 3^3-2^2 = 23, ...
%t a[n_]:=(n+1)^3-n^2;lst={};Do[If[PrimeQ[a[n]],AppendTo[lst,n]],{n,6!}];lst
%t Select[Range[210],PrimeQ[(#+1)^3-#^2]&] (* _Harvey P. Dale_, Sep 20 2011 *)
%o (Magma) [n: n in [0..5000] | IsPrime(((n+1)^3-n^2))] # _Vincenzo Librandi_, Nov 26 2010
%o (PARI) is(n)=isprime((n+1)^3 - n^2) \\ _Charles R Greathouse IV_, Sep 02 2016
%Y Cf. A140719, A005097, A154111.
%K nonn,easy
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, Jan 04 2009