OFFSET
1,1
COMMENTS
All terms are also in A081765 = numbers n such that n+2 divides 2^(n-1)-1.
MATHEMATICA
Do[If[PrimeQ[(2^n+n)/(n+2)], Print[n]], {n, 1, 5000}]
PROG
(PARI) is(n)=ispseudoprime((2^n+n)/(n+2)) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Zak Seidov, Sep 14 2006
EXTENSIONS
a(5) from Alexander Adamchuk, Sep 17 2006
STATUS
approved