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 A096372 #10 Feb 16 2025 08:32:53
%S A096372 1688311,1410743,1168619,958807,778319,624311,494083,385079,294887,
%T A096372 221239,162011,115223,79039,51767,31859,17911,8663,2999,-53,-1321,
%U A096372 -1489,-1097,-541,-73,199,311,443,919,2207,4919,9811,17783,29879,47287,71339,103511,145423,198839
%N A096372 List of primes produced by a certain "prime-generating" quartic polynomial.
%H A096372 Robert Israel, <a href="/A096372/b096372.txt">Table of n, a(n) for n = 1..10000</a>
%H A096372 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Prime-GeneratingPolynomial.html">Prime-Generating Polynomials</a>
%F A096372 Evaluate 6n^4 - 558n^3 + 19354n^2 - 296370n + 1688311 for n >= 0, record the primes.
%p A096372 f:= n -> 6*n^4 - 558*n^3 + 19354*n^2 - 296370*n + 1688311:
%p A096372 select(isprime@abs, [seq(f(n),n=0..100)]); # _Robert Israel_, Jan 16 2018
%t A096372 Select[Table[6n^4-558n^3+19354n^2-296370n+1688311,{n,0,40}],PrimeQ] (* _Harvey P. Dale_, Dec 31 2018 *)
%Y A096372 Cf. A076808, A076809, A095946, A095974.
%K A096372 easy,sign
%O A096372 1,1
%A A096372 Hilko Koning (hilko(AT)hilko.net), Jul 19 2004
%E A096372 Offset changed to 1 by _Robert Israel_, Jan 16 2018