cp's OEIS Frontend

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.

A190800 Primes p such that the polynomial x^2 + x + p generates only primes for x = 1..8.

This page as a plain text file.
%I A190800 #19 Jul 03 2020 11:21:58
%S A190800 11,17,41,844427,51448361,51867197,85776137,86966771,93685301,
%T A190800 97122197,107599757,113575727,118136267,122983031,180078317,232728647,
%U A190800 316973621,483040757,564537761,749930717,840472307,901288517,960959381,1278189947,1559839991,1696818647,1761702947,1829187287,2251028567
%N A190800 Primes p such that the polynomial x^2 + x + p generates only primes for x = 1..8.
%C A190800 Subsequence of A187060: a(1..10)=A187060(1,2,3,7,18,19,26,28,31,32).
%H A190800 Charles R Greathouse IV, <a href="/A190800/b190800.txt">Table of n, a(n) for n = 1..10000</a>
%t A190800 Select[Prime[Range[110*10^6]],AllTrue[Table[x^2+x+#,{x,8}],PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jul 03 2020 *)
%o A190800 (PARI) is(n)=for(x=0,8, if(!isprime(x^2+x+n), return(0))); 1 \\ _Charles R Greathouse IV_, Sep 14 2015
%Y A190800 Cf. A187060.
%K A190800 nonn
%O A190800 1,1
%A A190800 _Zak Seidov_, Jun 02 2011