%I A124363
%S A124363 1,73,151,241,349,481,643,841,1081,1369,1711,2113,2581,3121,3739,4441,
%T A124363 5233,6121,7111,8209,9421,10753,12211,13801,15529,17401,19423,21601,
%U A124363 23941,26449,29131,31993,35041,38281,41719,45361,49213,53281,57571
%N A124363 a(n) = n^3 + 71*n + 1
%C A124363 A prime-producing polynomial from a paper by Kermit Rose.
%C A124363 Produces 51 primes between 0 and 99: Length[Flatten[Table[If[PrimeQ[n^3 
               + 71*n + 1], n^3 + 71*n + 1, {}], {n, 0, 99}]]]
%D A124363 Prime-Producing Cubic Polynomials (Make Corrections) Joe L. Mott, KERMIT 
               ROSE http://citeseer.ist.psu.edu/403593.html
%t A124363 Table[n^3 + 71*n + 1, {n, 0, 99}]
%Y A124363 Sequence in context: A037994 A138642 A142179 this_sequence A044324 A044705 
               A071844
%Y A124363 Adjacent sequences: A124360 A124361 A124362 this_sequence A124364 A124365 
               A124366
%K A124363 nonn
%O A124363 1,2
%A A124363 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 27 2007