OFFSET
1,1
MATHEMATICA
Select[ Range[2, 401] + Prime@ Range@ 400, PrimeQ[ # ] &] (* Robert G. Wilson v, Jan 05 2006 *)
PROG
(PARI) lista(nn) = {for (k=2, nn, if (isprime(p=k+prime(k-1)), print1(p, ", ")); ); } \\ Michel Marcus, Aug 16 2018
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Jan 02 2006
EXTENSIONS
Corrected and extended by Robert G. Wilson v, Jan 05 2006
STATUS
approved