|
%I #10 Sep 08 2022 08:46:11
%S 5,7,11,17,19,29,31,37,43,47,53,67,71,73,79,89,101,109,113,127,149,
%T 151,157,167,181,191,193,197,227,257,263,271,277,281,331,347,349,379,
%U 383,431,433,449,467,479,499,509,521,523,547,563,569,571,577,587,619,631
%N Primes prime(n) such that prime(n) + 6*n is also prime.
%H Vincenzo Librandi, <a href="/A254672/b254672.txt">Table of n, a(n) for n = 1..1000</a>
%e prime(5) = 11 is in the sequence because 11 + 6*5 = 41 is prime.
%e prime(8) = 19 is in the sequence because 19 + 6*8 = 67 is prime.
%t Prime[Select[Range[150], PrimeQ[Prime[#] + 6 #] &]]
%o (Magma) [NthPrime(n): n in [1..200] | IsPrime(NthPrime(n)+6*n)]
%Y Cf. A061067, A231232, A231383, A254462, A254665, A254673.
%K nonn
%O 1,1
%A _Vincenzo Librandi_, Feb 05 2015
|
