Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #14 Apr 28 2016 11:25:04
%S 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,
%T 26,27,28,29,30,31,34,37,39,41,43,47,49,50,53,54,55,59,61,63,64,67,72,
%U 73,75,76,81,84,86,87,88,89,90,92,95,97,98,102,103,104
%N Nonnegative numbers n such that abs(82n^3 - 1228n^2 + 6130n - 5861) is prime.
%C 32 is the smallest number not in this sequence.
%H Robert Price, <a href="/A272323/b272323.txt">Table of n, a(n) for n = 1..2659</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Prime-GeneratingPolynomial.html">Prime-Generating Polynomials</a>
%e 4 is in this sequence since 82*4^3 - 1228*4^2 + 6130*4 - 5861 = 5248-19648+24520-5861 = 4259 is prime.
%t Select[Range[0, 100], PrimeQ[82#^3 - 1228#^2 + 6130# - 5861] &]
%o (PARI) lista(nn) = for(n=0, nn, if(isprime(abs(82*n^3-1228*n^2+6130*n-5861)), print1(n, ", "))); \\ _Altug Alkan_, Apr 25 2016
%Y Cf. A050268, A050267, A005846, A007641, A007635, A048988, A050265, A050266.
%Y Cf. A271980, A272030, A272074, A272075, A272160, A271144, A272285, A272324, A076808.
%K nonn
%O 1,3
%A _Robert Price_, Apr 25 2016