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.

A061668 Numbers k such that x-4, x-2, x+2, x+4 are primes, where x = 30*k - 15.

This page as a plain text file.
%I A061668 #15 Jul 01 2018 18:16:16
%S A061668 1,4,7,28,50,63,70,109,116,189,315,434,522,525,536,602,631,648,701,
%T A061668 743,844,1058,1162,1460,1712,1845,2100,2241,2317,2408,2576,2657,2702,
%U A061668 2758,2961,3262,3305,3371,3662,3885,3977,4074,4516,4806,5243,5524,5562,5706
%N A061668 Numbers k such that x-4, x-2, x+2, x+4 are primes, where x = 30*k - 15.
%C A061668 Ignoring (5,7,11,13) another name for this sequence could be "twin prime twins".
%H A061668 Harry J. Smith, <a href="/A061668/b061668.txt">Table of n, a(n) for n = 1..1000</a>
%e A061668 4 is in the sequence because 101, 103, 107, 109 are primes and 105 = 4*30 - 15.
%t A061668 p4Q[n_]:=Module[{c=30n-15},And@@PrimeQ[{c-4,c-2,c+2,c+4}]]; Select[ Range[ 6000],p4Q] (* _Harvey P. Dale_, Dec 04 2011 *)
%t A061668 Select[Range[6000], AllTrue[(30 # - 15) + {-4, -2, 2, 4}, PrimeQ] &] (* _Michael De Vlieger_, Jul 01 2018 *)
%o A061668 (PARI) { n=0; for (a=1, 391335, x=30*a - 15; if (isprime(x-4) && isprime(x-2) && isprime(x+2) && isprime(x+4), write("b061668.txt", n++, " ", a)) ) } \\ _Harry J. Smith_, Jul 26 2009
%Y A061668 30 * a(n) = A007530(n+1) + 19.
%K A061668 easy,nonn
%O A061668 1,2
%A A061668 _Frank Ellermann_, Jun 15 2001
%E A061668 More terms from Larry Reeves (larryr(AT)acm.org), Jun 20 2001