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 A052188 #41 Feb 28 2025 05:56:22
%S A052188 199,1499,4397,4679,7829,9859,11287,11399,11719,12829,15149,16607,
%T A052188 17419,17839,18329,18719,19727,19937,20149,20509,20719,21649,22039,
%U A052188 22247,23789,25609,26029,28057,29587,30047,31039,32467,34159,35117,35839,35899,36217,36809,40099
%N A052188 Primes p such that p, p+12, p+24 are consecutive primes.
%C A052188 Corresponds to two consecutive 12's in A001223. - - _M. F. Hasler_, Jan 02 2020
%H A052188 Amiram Eldar, <a href="/A052188/b052188.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Zak Seidov)
%H A052188 OEIS wiki, <a href="/wiki/Consecutive_primes_in_arithmetic_progression#CPAP_with_given_gap">Consecutive primes in arithmetic progression: CPAP with given gap</a>, updated Jan. 2020.
%e A052188 a(1) = 199, followed by the consecutive primes 199 + 12 = 211, 199 + 12 + 12 = 223.
%t A052188 Transpose[Select[Partition[Prime[Range[3800]],3,1], Union[Differences[#]] =={12}&]][[1]] (* _Harvey P. Dale_, Apr 26 2011 *)
%o A052188 (PARI) lista(nn) = {forprime(p=1, nn, q = nextprime(p+1); r = nextprime(q+1); if ((r-q==12) && (q-p==12), print1(p, ", ")););} \\ _Michel Marcus_, Jun 27 2015
%o A052188 (Magma) [p:p in PrimesUpTo(36000)| NextPrime(p)-p eq 12 and NextPrime(p+12)-p eq 24]; // _Marius A. Burtea_, Jan 03 2020
%Y A052188 Subsequence of A031930.
%Y A052188 Generalization of A047948 and A033451 if 6 replaced by 12.
%Y A052188 Cf. A001223, A033447.
%K A052188 nonn
%O A052188 1,1
%A A052188 _Labos Elemer_, Jan 28 2000
%E A052188 Name changed by _Jon E. Schoenfield_, May 30 2018