This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A272118 #19 Feb 16 2025 08:33:33 %S A272118 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 A272118 26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48, %U A272118 49,50,51,52,53,54,55,56,57,61,62,64,66,67,68,69,71,72 %N A272118 Numbers k such that abs(6*k^2 - 342*k + 4903) is prime. %H A272118 Robert Price, <a href="/A272118/b272118.txt">Table of n, a(n) for n = 1..3874</a> %H A272118 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Prime-GeneratingPolynomial.html">Prime-Generating Polynomials</a> %e A272118 4 is in this sequence since 6*4^2 - 342*4 + 4903 = 96-1368+4903 = 3631 is prime. %t A272118 Select[Range[0, 100], PrimeQ[6*#^2 - 342*# + 4903] &] %o A272118 (PARI) isok(n) = isprime(abs(6*n^2 - 342*n + 4903)); \\ _Michel Marcus_, Apr 21 2016 %Y A272118 Cf. A050268, A050267, A005846, A007641, A007635, A048988, A050265, A050266. %Y A272118 Cf. A271980, A272074, A272075. %K A272118 nonn %O A272118 1,3 %A A272118 _Robert Price_, Apr 20 2016