OFFSET
1,1
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
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..5000
MATHEMATICA
okQ[n_]:=Module[{x=n-1}, PrimeQ[x]&&IntegerQ[(x-3)/4]]; Select[Range[1, 1000, 1], okQ] (* Vincenzo Librandi, Dec 13 2011 *)
Select[4*Range[0, 200]+3, PrimeQ]+1 (* Harvey P. Dale, Sep 25 2017 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Giovanni Teofilatto, Dec 14 2003
EXTENSIONS
Corrected and extended by T. D. Noe, Oct 25 2006
STATUS
approved