|
%I #18 Jul 19 2018 05:46:42
%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,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,
%U 49,50,51,52,53,54,55,56,57,61,62,64,66,67,68,69,71,72
%N Numbers k such that abs(6*k^2 - 342*k + 4903) is prime.
%H Robert Price, <a href="/A272118/b272118.txt">Table of n, a(n) for n = 1..3874</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 6*4^2 - 342*4 + 4903 = 96-1368+4903 = 3631 is prime.
%t Select[Range[0, 100], PrimeQ[6*#^2 - 342*# + 4903] &]
%o (PARI) isok(n) = isprime(abs(6*n^2 - 342*n + 4903)); \\ _Michel Marcus_, Apr 21 2016
%Y Cf. A050268, A050267, A005846, A007641, A007635, A048988, A050265, A050266.
%Y Cf. A271980, A272074, A272075.
%K nonn
%O 1,3
%A _Robert Price_, Apr 20 2016
|
