OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
For p = 3, 8*p + 7 = 31;
for p = 179, 8*p + 7 = 1439.
MAPLE
a := proc (n) if isprime(n) = true and isprime(8*n+7) = true then n else end if end proc: seq(a(n), n = 1 .. 1500); # Emeric Deutsch, Dec 30 2008
MATHEMATICA
Select[Prime@Range@500, PrimeQ[8 # + 7] &] (* Vincenzo Librandi, May 19 2014 *)
PROG
(Magma) [n: n in PrimesUpTo(1500) | IsPrime(8*n+7)]; // Vincenzo Librandi, Nov 20 2010
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Edited by N. J. A. Sloane, Mar 11 2009 at the suggestion of R. J. Mathar
STATUS
approved