login
A024897
Numbers k such that 5*k + 4 is prime.
12
3, 5, 11, 15, 17, 21, 27, 29, 35, 39, 45, 47, 53, 69, 71, 75, 77, 81, 83, 87, 89, 95, 99, 101, 113, 119, 123, 131, 141, 143, 147, 153, 161, 165, 167, 171, 183, 185, 201, 203, 207, 209, 213, 221, 225, 245, 249, 251, 255, 257, 263, 279, 281, 285, 287, 291, 297, 299, 309, 311, 315
OFFSET
1,1
LINKS
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
Cf. A023218 (subsequence of primes).
Sequence in context: A376397 A376398 A136500 * A048702 A003546 A353395
KEYWORD
nonn,easy
STATUS
approved