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 A358381 #21 Dec 24 2022 03:42:47 %S A358381 2,5,7,47,107,907,2137,2347,3407,4547,4597,8377,9067,9277,9767,14537, %T A358381 16427,18307,19507,19997,23447,23917,26927,27437,28837,29297,33037, %U A358381 37307,38327,45127,46457,50957,52957,55897,59077,59407,60317,63667,65497,69767,74377,77527,86587,86837 %N A358381 Primes p such that q1=6*p-1 and q2=6*p+1 are also primes (twin primes) and q1 is a Sophie Germain prime (i.e., 2*q1+1 is prime). %C A358381 Except for the first 2 terms, every term's last digit is a 7 in base 10. %H A358381 Robert Israel, <a href="/A358381/b358381.txt">Table of n, a(n) for n = 1..10000</a> %p A358381 filter:= p -> andmap(isprime, [p, 6*p-1, 6*p+1, 12*p-1]): %p A358381 select(filter, [2,5,seq(i,i=7..10^5,10)]); # _Robert Israel_, Dec 23 2022 %t A358381 Select[Prime[Range[8500]], PrimeQ[6*# - 1] && PrimeQ[6*# + 1] && PrimeQ[12*# - 1] &] (* _Amiram Eldar_, Nov 13 2022 *) %Y A358381 Subsequence of A060212. %Y A358381 Cf. A005384. %K A358381 nonn %O A358381 1,1 %A A358381 _Tamas Nagy_, Nov 12 2022