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 A177017 #19 Sep 08 2022 08:45:53 %S A177017 5,7,13,17,19,23,29,37,47,53,67,79,83,97,103,109,113,131,137,163,173, %T A177017 181,197,227,229,251,257,269,283,293,307,313,359,383,389,401,409,421, %U A177017 439,449,457,467,479,491,503,509,587,593,599,613,617,643,647,659,677 %N A177017 Primes prime(n) such that prime(n) + prime(n+1) + 1 is also prime. %H A177017 Vincenzo Librandi, <a href="/A177017/b177017.txt">Table of n, a(n) for n = 1..1000</a> %t A177017 Select[Prime[Range[200]],PrimeQ[#+NextPrime[#]+1]&] (* _Vincenzo Librandi_, Aug 26 2012 *) %t A177017 Transpose[Select[Partition[Prime[Range[300]],2,1],PrimeQ[Total[#]+1]&]][[1]] (* _Harvey P. Dale_, Apr 16 2013 *) %o A177017 (Magma) [NthPrime(n): n in [1..200] | IsPrime(NthPrime(n)+NthPrime(n+1)+1)]; // _Vincenzo Librandi_, Aug 26 2012 %Y A177017 Cf. A072666, A072667. %K A177017 nonn,easy %O A177017 1,1 %A A177017 _Vincenzo Librandi_, May 22 2010 %E A177017 Edited and corrected by _N. J. A. Sloane_, Jun 22 2010