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.

A227283 First primes of arithmetic progressions of 8 primes each with the common difference 210.

This page as a plain text file.
%I A227283 #10 May 03 2018 14:23:14
%S A227283 199,409,619,881,3499,3709,10627,10859,11069,30097,31583,120661,
%T A227283 120737,153319,182537,471089,487391,564973,565183,825991,1010747,
%U A227283 1280623,1288607,1288817,1302281,1302491,1395209,1982599,2358841,2359051,2439571,3161017,3600521
%N A227283 First primes of arithmetic progressions of 8 primes each with the common difference 210.
%C A227283 The minimal possible difference in an AP-k is conjectured to be k# for all k > 7.
%H A227283 Sameen Ahmed Khan, <a href="/A227283/b227283.txt">Table of n, a(n) for n = 1..150</a>
%t A227283 Clear[p]; d = 210; ap8p = {}; Do[If[PrimeQ[{p, p + d, p + 2*d, p + 3*d, p + 4*d, p + 5*d, p + 6*d, p + 7*d}] == {True, True, True, True, True, True, True, True}, AppendTo[ap8p, p]], {p, 3, 3000000, 2}]; ap8p
%t A227283 Select[Prime[Range[260000]],AllTrue[NestList[#+210&,#,7],PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, May 03 2018 *)
%Y A227283 Cf. A001359, A023241, A023271, A094220, A156204, A227281, A227282, A227284, A227285, A227286.
%K A227283 nonn
%O A227283 1,1
%A A227283 _Sameen Ahmed Khan_, Jul 05 2013