|
%I #11 Sep 08 2022 08:45:07
%S 2,3,4,5,6,9,15,17,20,21,22,25,27,30,31,33,42,46,54,56,58,60,62,67,72,
%T 73,78,81,84,86,87,88,90,93,96,99,100,105,111,112,113,115,119,127,128,
%U 133,135,137,145,146,151,152,162,163,164,165,168,170,172,173,176,177
%N Prime(n) + s*n is prime, s=4.
%C See also A064402 (s=1), A076297 (s=2), A076298 (s=3), A076300 (s=5).
%H G. C. Greubel, <a href="/A076299/b076299.txt">Table of n, a(n) for n = 1..10000</a>
%e 4 is OK because p(4) + 4*4 = 7 + 16 = 23 is prime.
%t Select[Range[500], PrimeQ[Prime[#] + 4 #] &] (* _G. C. Greubel_, May 04 2018 *)
%o (Magma) [n: n in [0..500]| IsPrime(NthPrime(n) +4*n)]; // _G. C. Greubel_, May 04 2018
%o (PARI) select(x->isprime(x), vector(500, n, prime(n) + 4*n), 1) \\ _G. C. Greubel_, May 04 2018
%Y Cf. A064402, A076297, A076298, A076300.
%K nonn
%O 1,1
%A _Zak Seidov_, Oct 05 2002
|
