|
%I #10 Sep 08 2022 08:45:08
%S 7,11,31,41,53,61,67,71,97,137,157,163,167,173,223,239,277,281,347,
%T 359,367,383,401,433,439,443,449,503,521,569,601,643,673,761,769,809,
%U 821,829,877,883,941,953,1031,1063,1093,1109,1153,1163,1217,1223,1277,1307
%N Primes of the form prime(k) + 2*k.
%H Vincenzo Librandi, <a href="/A078917/b078917.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Table[Prime[n]+2n,{n,68000}],PrimeQ] (* _Vincenzo Librandi_, Dec 09 2011 *)
%o (Magma) [a: n in [1..200] | IsPrime(a) where a is NthPrime(n)+2*n ]; // _Vincenzo Librandi_, Dec 09 2011
%Y Cf. A078916, A061068, A000040.
%K nonn,easy
%O 1,1
%A _Reinhard Zumkeller_, Dec 13 2002
|
