%I #17 Sep 08 2022 08:45:12
%S 31,41,61,71,101,151,191,211,241,271,311,401,421,491,521,541,571,641,
%T 661,691,701,751,761,821,911,971,991,1061,1151,1171,1201,1291,1321,
%U 1361,1471,1571,1741,1801,1871,1901,1951,2011,2111,2161,2221,2251,2311,2341
%N Primes of the form 5*p + 6 where p is a prime.
%C Primes arising in A023219.
%C Subsequence of A030430.
%H Vincenzo Librandi, <a href="/A088555/b088555.txt">Table of n, a(n) for n = 1..3400</a>
%F a(n) = 5*A023219(n) + 6.
%t 6 + 5 Select[Prime[Range[200]], PrimeQ[5 # + 6] &] (* _Vincenzo Librandi_, May 19 2017 *)
%o (Magma) [5*p+6: p in PrimesUpTo(600)| IsPrime(5*p+6)]; // _Vincenzo Librandi_, May 19 2017
%o (PARI) forprime(p=2,500,my(pp=5*p+6);if(isprime(pp),print1(pp,", "))) \\ _Hugo Pfoertner_, Aug 06 2021
%Y Cf. A023219, A030430, A088561, A090161.
%K nonn,easy
%O 1,1
%A _Ray Chandler_, Nov 28 2003
%E Name clarified by _Jinyuan Wang_, Aug 06 2021