|
%I #34 Sep 08 2022 08:44:58
%S 17,19,29,53,97,167,269,409,593,827,1117,1889,2383,2957,3617,6173,
%T 7237,9719,11149,12713,16267,18269,25247,27917,33809,47969,56333,
%U 65617,70619,75869,81373,99469,112913,120067,143329,151703,160397,188459
%N Primes of the form n^3 + n^2 + 17, for nonnegative values of n.
%C n=-2 produces the prime 13. - _Robert Price_, Apr 25 2016
%H Vincenzo Librandi, <a href="/A050266/b050266.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Prime-GeneratingPolynomial.html">Prime-Generating Polynomial.</a>
%p f:= seq(n^3+n^2+17, n = 0..100); select(isprime, f); # _G. C. Greubel_, Feb 06 2020
%t Select[Table[n^3+n^2+17,{n,0,100}],PrimeQ] (* _Vincenzo Librandi_, Dec 08 2011 *)
%o (Magma) [a: n in [0..100] | IsPrime(a) where a is n^3+n^2+17]; // _Vincenzo Librandi_, Dec 08 2011
%o (PARI) for(n=0, 100, my(m=n^3+n^2+17); if(isprime(m), print1(m ", "))) \\ _G. C. Greubel_, Feb 06 2020
%o (Sage) [n^3+n^2+17 for n in (0..100) if is_prime(n^3+n^2+17) ] # _G. C. Greubel_, Feb 06 2020
%Y Cf. A331950.
%K nonn,easy
%O 1,1
%A _Eric W. Weisstein_
%E 17 added by _Vincenzo Librandi_, Dec 08 2011
%E Altered definition to require that n be nonnegative. - _Robert Price_, Apr 25 2016
|
