A078917 Primes of the form prime(k) + 2*k.
7, 11, 31, 41, 53, 61, 67, 71, 97, 137, 157, 163, 167, 173, 223, 239, 277, 281, 347, 359, 367, 383, 401, 433, 439, 443, 449, 503, 521, 569, 601, 643, 673, 761, 769, 809, 821, 829, 877, 883, 941, 953, 1031, 1063, 1093, 1109, 1153, 1163, 1217, 1223, 1277, 1307
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[a: n in [1..200] | IsPrime(a) where a is NthPrime(n)+2*n ]; // Vincenzo Librandi, Dec 09 2011
-
Mathematica
Select[Table[Prime[n]+2n,{n,68000}],PrimeQ] (* Vincenzo Librandi, Dec 09 2011 *)