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