%I #20 Feb 03 2024 00:53:47
%S 2,3,5,7,17,19,23,29,43,47,53,59,67,103,107,109,113,127,137,157,163,
%T 197,199,227,229,239,269,283,313,317,347,359,373,379,383,389,397,439,
%U 443,449,457,463,467,523,569,577,593,599,613,617,647,653,709,733,743,773
%N Primes p such that 6*p-1 is also prime.
%H Vincenzo Librandi, <a href="/A158015/b158015.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[200]], PrimeQ[(6 # - 1)]&] (* _Vincenzo Librandi_, Apr 14 2013 *)
%o (Magma) [p: p in PrimesUpTo(800) | IsPrime(6*p-1)]; // _Vincenzo Librandi_, Apr 14 2013
%Y Cf. A005382 for the type 2p-1, A062737 for 4p-1, A158016 for 8p-1, A158017 for 10p-1.
%Y Primes in A024898, i.e., intersection of A024898 with A000040.
%K nonn,easy
%O 1,1
%A _Roger L. Bagula_, Mar 11 2009
%E Edited by the Associate Editors of the OEIS, Apr 22 2009
|