%I #10 Aug 16 2018 13:26:22
%S 17,43,107,131,139,277,313,337,379,467,607,677,709,719,761,773,857,
%T 911,937,953,967,1009,1063,1097,1109,1229,1277,1289,1319,1399,1487,
%U 1499,1787,1861,1879,1933,1993,2027,2053,2081,2131,2153,2161,2207,2417,2621
%N Primes of the form k + prime(k1).
%t Select[ Range[2, 401] + Prime@ Range@ 400, PrimeQ[ # ] &] (* _Robert G. Wilson v_, Jan 05 2006 *)
%o (PARI) lista(nn) = {for (k=2, nn, if (isprime(p=k+prime(k1)), print1(p, ", ")););} \\ _Michel Marcus_, Aug 16 2018
%Y Primes in A090178.
%K easy,nonn
%O 1,1
%A _Jonathan Vos Post_, Jan 02 2006
%E Corrected and extended by _Robert G. Wilson v_, Jan 05 2006
