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.

A270639 Fermat pseudoprimes (A001567) that are the sum of three consecutive primes.

This page as a plain text file.
%I A270639 #17 Jun 28 2019 16:37:02
%S A270639 13741,16705,150851,208465,249841,252601,258511,410041,486737,635401,
%T A270639 1052503,1082401,1457773,1507963,1579249,1615681,2113921,2184571,
%U A270639 3090091,3375487,3726541,4682833,4895065,5044033,5133201,6233977,6255341,6350941,6474691,6912079,7259161
%N A270639 Fermat pseudoprimes (A001567) that are the sum of three consecutive primes.
%C A270639 In other words, Fermat pseudoprimes to base 2 of the form p + q + r where p, q and r are consecutive primes.
%C A270639 If a Fermat pseudoprime is the sum of n consecutive primes, it is so obvious that the minimum value of n is 3.
%C A270639 Intersection of A001567 and A034961.
%H A270639 Amiram Eldar, <a href="/A270639/b270639.txt">Table of n, a(n) for n = 1..10000</a>
%e A270639 4567, 4583 and 4591 are consecutive primes and their sum is 13741, a Fermat pseudoprime.
%e A270639 84191, 84199 and 84211 are consecutive primes and their sum is 252601, a Fermat pseudoprime.
%o A270639 (PARI) isA001567(n) = {Mod(2, n)^n==2 && !ispseudoprime(n) && n > 1}
%o A270639 a034961(n) = my(p=prime(n), q=nextprime(p+1)); p+q+nextprime(q+1);
%o A270639 for(n=1, 200000, if(isA001567(a034961(n)), print1(a034961(n), ", ")));
%Y A270639 Cf. A001567, A034961, A270267.
%K A270639 nonn
%O A270639 1,1
%A A270639 _Altug Alkan_, Mar 20 2016