|
%I #11 Sep 08 2022 08:45:07
%S 2,3,7,9,11,12,13,14,18,24,27,28,29,30,36,38,43,44,53,54,55,57,60,63,
%T 64,65,66,72,74,80,84,90,93,102,103,108,110,111,117,118,125,126,135,
%U 138,141,143,148,150,155,156,162,165,171,174,180,183,186,188,190,198
%N Prime(n)+ s*n is prime, s=2.
%C See also A064402 (s=1), A076298 (s=3), A076299 (s=4), A076300 (s=5).
%H G. C. Greubel, <a href="/A076297/b076297.txt">Table of n, a(n) for n = 1..10000</a>
%e 3 is OK because p(3) + 2*3 = 5 + 6 = 11 is prime.
%t Select[Range[200],PrimeQ[Prime[#]+2#]&] (* _Harvey P. Dale_, Sep 01 2015 *)
%o (Magma) [n: n in [0..500]| IsPrime(NthPrime(n) +2*n)]; // _G. C. Greubel_, May 04 2018
%o (PARI) select(x->isprime(x), vector(500, n, prime(n) + 2*n), 1) \\ _G. C. Greubel_, May 04 2018
%Y Cf. A064402, A076298, A076299, A076300.
%K nonn
%O 1,1
%A _Zak Seidov_, Oct 05 2002
|
