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.
%I A384526 #10 Jun 05 2025 23:45:22 %S A384526 17,23,47,53,83,257,263,353,443,557,587,593,977,1103,1217,1277,1283, %T A384526 1433,1607,1973,1997,2267,2657,2693,2837,3527,3617,4007,4637,4643, %U A384526 4937,5393,5807,6197,6257,6323,6353,6977,8693,10253,10847,10973,11483,11807,12143,12497,12953,13613,14537 %N A384526 Primes p such that p + 6, p + 14 and p + 20 are also primes. %C A384526 Initial members of prime quartets that correspond to the difference pattern [6, 8, 6]. %F A384526 a(n) == 5 (mod 6). - _Hugo Pfoertner_, Jun 01 2025 %e A384526 p=47: 47+6=53, 47+14=61, 47+20=67 —> prime quartet: (47, 53, 61, 67). %p A384526 select(p -> andmap(isprime,[p, p + 6, p + 14, p + 20]), [seq(i,i=5 .. 20000, 6)]); # _Robert Israel_, Jun 01 2025 %t A384526 Select[Prime[Range[1700]], PrimeQ[#+6]&&PrimeQ[#+14]&&PrimeQ[#+20] &] (* _Stefano Spezia_, Jun 01 2025 *) %Y A384526 Cf. A000040, A001223. %Y A384526 Cf. A140565 [6, 2, 6], A382810 [6, 4, 6]. %K A384526 nonn %O A384526 1,1 %A A384526 _Alexander Yutkin_, Jun 01 2025