OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MAPLE
A024897:=n->`if`(isprime(5*n+4), n, NULL): seq(A024897(n), n=1..500); # Wesley Ivan Hurt, Sep 07 2016
MATHEMATICA
Select[Range[400], PrimeQ[5 # + 4]&] (* Vincenzo Librandi, Sep 25 2012 *)
PROG
(Magma) [n: n in [1..1000] | IsPrime(5*n+4)] // Vincenzo Librandi, Nov 20 2010
(PARI) isok(n) = isprime(5*n+4) \\ Michel Marcus, Sep 07 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved