|
%I #11 Sep 05 2022 19:25:26
%S 3,14,19,21,27,38,39,57,59,63,64,69,70,82,86,88,93,96,102,103,110,115,
%T 119,120,124,130,138,140,146,148,152,155,158,159,160,161,163,167,168,
%U 175,177,178,179,187,193,195,196,197,198,202,213,215,217,229,230,234,235,240,245,248,253,254,263,265,267,275,280,282,283,285,292,294,297,302,305,307,311,312,315,317,321,324,325,329,333
%N Positive integers n for which n^2 + n + 1712329866165608771 is prime.
%H Robert Israel, <a href="/A121226/b121226.txt">Table of n, a(n) for n = 1..10000</a>
%H R. A. Mollin, <a href="http://www.jstor.org/stable/2975080">Prime-Producing Quadratics</a>, The American Mathematical Monthly, Vol. 104, No. 6 (Jun. - Jul., 1997), pp. 529-544.
%p select(n -> isprime(n^2 + n + 1712329866165608771), [$1..10^4]); # _Robert Israel_, Jan 05 2015
%t Select[Range[350],PrimeQ[#^2+#+1712329866165608771]&] (* _Harvey P. Dale_, Sep 05 2022 *)
%K nonn
%O 1,1
%A _G. L. Honaker, Jr._, Aug 20 2006
|
