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 A050266 #35 Feb 16 2025 08:32:40
%S A050266 17,19,29,53,97,167,269,409,593,827,1117,1889,2383,2957,3617,6173,
%T A050266 7237,9719,11149,12713,16267,18269,25247,27917,33809,47969,56333,
%U A050266 65617,70619,75869,81373,99469,112913,120067,143329,151703,160397,188459
%N A050266 Primes of the form n^3 + n^2 + 17, for nonnegative values of n.
%C A050266 n=-2 produces the prime 13. - _Robert Price_, Apr 25 2016
%H A050266 Vincenzo Librandi, <a href="/A050266/b050266.txt">Table of n, a(n) for n = 1..10000</a>
%H A050266 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Prime-GeneratingPolynomial.html">Prime-Generating Polynomial.</a>
%p A050266 f:= seq(n^3+n^2+17, n = 0..100); select(isprime, f); # _G. C. Greubel_, Feb 06 2020
%t A050266 Select[Table[n^3+n^2+17,{n,0,100}],PrimeQ] (* _Vincenzo Librandi_, Dec 08 2011 *)
%o A050266 (Magma) [a: n in [0..100] | IsPrime(a) where a is n^3+n^2+17]; // _Vincenzo Librandi_, Dec 08 2011
%o A050266 (PARI) for(n=0, 100, my(m=n^3+n^2+17); if(isprime(m), print1(m ", "))) \\ _G. C. Greubel_, Feb 06 2020
%o A050266 (Sage) [n^3+n^2+17 for n in (0..100) if is_prime(n^3+n^2+17) ] # _G. C. Greubel_, Feb 06 2020
%Y A050266 Cf. A331950.
%K A050266 nonn,easy
%O A050266 1,1
%A A050266 _Eric W. Weisstein_
%E A050266 17 added by _Vincenzo Librandi_, Dec 08 2011
%E A050266 Altered definition to require that n be nonnegative. - _Robert Price_, Apr 25 2016