OFFSET
1,1
COMMENTS
All terms are also in A081765 = numbers k such that k+2 divides 2^(k-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
nonn,more
AUTHOR
Zak Seidov, Sep 14 2006
EXTENSIONS
a(5) from Alexander Adamchuk, Sep 17 2006
STATUS
approved
