|
%I #10 Sep 08 2022 08:45:07
%S 1,4,6,8,10,12,16,20,26,28,32,34,38,40,42,46,48,50,56,60,62,64,68,78,
%T 86,90,94,102,104,120,122,128,130,138,140,144,146,148,162,166,170,180,
%U 182,186,190,200,204,208,214,230,238,244,246,250,252,254,260,270,282
%N Prime(n)+ s*n is prime, s=3.
%C See also A064402 (s=1), A076297 (s=2), A076299 (s=4), A076300 (s=5).
%H G. C. Greubel, <a href="/A076298/b076298.txt">Table of n, a(n) for n = 1..10000</a>
%e 4 is OK because p(4) + 3*4 = 7 + 12 = 19 is prime.
%t Select[Range[300],PrimeQ[3#+Prime[#]]&] (* _Harvey P. Dale_, Sep 06 2012 *)
%o (Magma) [n: n in [0..500]| IsPrime(NthPrime(n) +3*n)]; // _G. C. Greubel_, May 04 2018
%o (PARI) select(x->isprime(x), vector(500, n, prime(n) + 3*n), 1) \\ _G. C. Greubel_, May 04 2018
%Y Cf. A064402, A076297, A076299, A076300.
%K nonn
%O 1,2
%A _Zak Seidov_, Oct 05 2002
|
