1,1
All terms are also in A081765 = numbers n such that n+2 divides 2^(n-1)-1.
Do[If[PrimeQ[(2^n+n)/(n+2)], Print[n]], {n, 1, 5000}]
Cf. A081765.
Sequence in context: A156940 A180528 A109504 * A174343 A158332 A180531
Adjacent sequences: A122039 A122040 A122041 * A122043 A122044 A122045
more,nonn
Zak Seidov (zakseidov(AT)yahoo.com), Sep 14 2006
a(5) from Alexander Adamchuk (alex(AT)kolmogorov.com), Sep 17 2006