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 A382810 #22 May 06 2025 06:53:27
%S A382810 7,13,31,37,73,97,157,223,373,433,1087,1291,1423,1483,1543,1861,1987,
%T A382810 2341,2383,2677,2683,3313,3607,4441,4507,4783,4993,5641,5851,6037,
%U A382810 6961,7237,7867,8731,9613,9733,10723,13093,13681,14143,14731,16057,16411,16921,17377
%N A382810 Primes p such that p + 6, p + 10 and p + 16 are also primes.
%C A382810 The four primes need not be consecutive; otherwise we have the sequence A078856.
%H A382810 Robert Israel, <a href="/A382810/b382810.txt">Table of n, a(n) for n = 1..2500</a>
%e A382810 p=37: 37+6=43, 37+10=47, 37+16=53 -> prime quartet: (37, 43, 47, 53).
%p A382810 q:= p-> andmap(i->isprime(p+i), [0, 6, 10, 16]):
%p A382810 select(q, [$2..20000])[]; # _Alois P. Heinz_, Apr 05 2025
%t A382810 Select[Prime[Range[2000]],AllTrue[#+{6,10,16},PrimeQ]&] (* _James C. McMahon_, Apr 13 2025 *)
%Y A382810 Cf. A000040, A001223, A023200, A031924.
%Y A382810 Cf. A078852 [4, 6, 6], A078856 [6, 4, 6], A078858 [6, 6, 4], A033451 [6, 6, 6].
%K A382810 nonn
%O A382810 1,1
%A A382810 _Alexander Yutkin_, Apr 05 2025