OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..2500
FORMULA
MATHEMATICA
Select[Table[If[PrimeQ[n], 0, 2n+3], {n, 2, 500}], PrimeQ] (* Harvey P. Dale, Mar 25 2011 *)
PROG
(PARI) lista(nn) = forcomposite(q=4, nn, if(isprime(p=2*q+3), print1(p, ", "))); \\ Altug Alkan, Apr 18 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Claudio Meller, Oct 01 2009
STATUS
approved