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 A164133 #10 Dec 09 2024 01:57:11
%S A164133 2,3,13,43,127,167,613,647,1033,1483,1543,2297,2927,3701,3823,4463,
%T A164133 5101,5417,5657,6133,8081,9227,11273,11833,12511,13291,13873,17627,
%U A164133 19853,20011,21313,21727,22193,23041,23059,23081,23159,24443,26347,26947,27407,27527
%N A164133 Primes p such that 4*p and 6*p are each the sum of two consecutive primes.
%H A164133 Robert Israel, <a href="/A164133/b164133.txt">Table of n, a(n) for n = 1..3000</a>
%F A164133 A163487 INTERSECT A118134.
%e A164133 p=13 is in the sequence because 4*13 = 52 = A001043(9) and 6*13 = 78 = A001043(12) are both in A001043.
%p A164133 P:= select(isprime, [2,seq(i,i=3..10^6)]):
%p A164133 PS:= P[1..-2] + P[2..-1]:
%p A164133 convert(P,set) intersect convert(1/4 * PS, set) intersect convert(1/6*PS,set); # _Robert Israel_, Dec 08 2024
%t A164133 stcpQ[n_]:=Module[{a=4n,b=6n},a==NextPrime[a/2]+NextPrime[a/2,-1]&&b== NextPrime[b/2]+NextPrime[b/2,-1]]; Select[Prime[Range[3100]],stcpQ] (* _Harvey P. Dale_, May 01 2019 *)
%Y A164133 Cf. A000040, A118134, A163487.
%K A164133 nonn
%O A164133 1,1
%A A164133 _Juri-Stepan Gerasimov_, Aug 11 2009
%E A164133 Extended by _R. J. Mathar_, Aug 27 2009