OFFSET
1,4
REFERENCES
M. Cerasoli, F. Eugeni and M. Protasi, Elementi di Matematica Discreta, Bologna 1988.
Emanuele Munarini and Norma Zagaglia Salvi, Matematica Discreta,UTET, CittaStudiEdizioni, Milano 1997.
MAPLE
A089986:=n->`if`(isprime(4*n+7), n, NULL): seq(A089986(n), n=-1..200); # Wesley Ivan Hurt, Sep 18 2014
MATHEMATICA
Select[Range[-1, 200], PrimeQ[4 # + 7] &] (* Wesley Ivan Hurt, Sep 18 2014 *)
PROG
(Magma) [ n: n in [-1..170] | IsPrime(4*n+7) ];
(PARI) is(n)=isprime(4*n+7) \\ Charles R Greathouse IV, Feb 20 2017
CROSSREFS
KEYWORD
sign
AUTHOR
Giovanni Teofilatto, Jan 13 2004
EXTENSIONS
Edited and extended by Klaus Brockhaus, Dec 22 2008
STATUS
approved