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 A099389 #10 Jan 31 2023 12:23:42 %S A099389 5,7,17,19,29,31,37,53,53,67,79,97,113,113,127,137,137,151,157,167, %T A099389 197,199,211,269,293,293,337,353,349,379,389,383,439,449,457,547,557, %U A099389 569,607,617,619,617,653,661,691,751,757,787,829,857,857,877,887,907,919 %N A099389 Subsequence of primes in sequence b(n) = 3*prime(n) - prime(n+1) - 3 (A100021). %H A099389 Harvey P. Dale, <a href="/A099389/b099389.txt">Table of n, a(n) for n = 1..1000</a> %t A099389 Select[3#[[1]]-#[[2]]-3&/@Partition[Prime[Range[100]],2,1],PrimeQ] (* _Harvey P. Dale_, Oct 13 2018 *) %o A099389 (PARI) for(n=1,91,if(isprime(k=3*prime(n)-prime(n+1)-3),print1(k,","))) %Y A099389 Cf. A100021, A099382. %K A099389 nonn,less,easy %O A099389 1,1 %A A099389 _Giovanni Teofilatto_, Nov 17 2004 %E A099389 Edited and extended by _Klaus Brockhaus_, Nov 19 2004