OFFSET
1,1
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
n = 2; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, Prime[k]]], {k, 1, 1500}]; a
Select[Prime[Range[400]], PrimeQ[(# + 4) / 5]&] (* Vincenzo Librandi, Apr 14 2013 *)
PROG
(PARI) {forprime(p=1, 1e4/*default(primelimit)*/, p%5-1 & next; isprime(p\5+1) & print1(p", "))} \\ M. F. Hasler, Feb 26 2012
(GAP) A136061:=Filtered(Filtered([1..10^6], IsPrime), p->IsPrime((p+4)/5)); # Muniru A Asiru, Oct 10 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Artur Jasinski, Dec 12 2007
STATUS
approved