A112885 - OEIS

%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(k-1).

%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(k-1)), 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