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.

A216304 Values of k such that 10*k+1 and 10*k+7 alone are prime between 10*k and 10*k+9.

This page as a plain text file.
%I A216304 #13 Sep 15 2016 15:06:58
%S A216304 3,6,15,25,27,33,54,57,60,75,94,97,99,118,123,129,132,136,162,174,186,
%T A216304 190,201,213,228,234,235,237,241,244,255,267,279,285,306,318,330,351,
%U A216304 354,363,369,402,405,439,444,445,456,459,465,487,495,508,510,538
%N A216304 Values of k such that 10*k+1 and 10*k+7 alone are prime between 10*k and 10*k+9.
%H A216304 V. Raman, <a href="/A216304/b216304.txt">Table of n, a(n) for n = 1..10000</a>
%F A216304 a(n) >> n log^2 n. - _Charles R Greathouse IV_, Sep 07 2012
%t A216304 t = {}; Do[ps = Select[Range[10*n, 10*n + 9], PrimeQ]; If[ps == {10*n + 1, 10*n + 7}, AppendTo[t, n]], {n, 0, 699}]; t (* _T. D. Noe_, Sep 04 2012 *)
%t A216304 Select[Range[600],Boole[PrimeQ[Range[10 #,10 #+9]]]=={0,1,0,0,0,0,0,1,0,0}&] (* _Harvey P. Dale_, Sep 15 2016 *)
%Y A216304 Cf. A032352, A007811, A078494.
%K A216304 nonn
%O A216304 1,1
%A A216304 _V. Raman_, Sep 03 2012