login
Primes of the form 5*p + 6 where p is a prime.
4

%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