1,2

Do[ If[ PowerMod[ 2, n, n ] + 3 == n, Print[n]], { n, 1, 10^9, 2 } ]

Cf. A050259.

Sequence in context: A085706 A135084 A094630 this_sequence A093853 A157332 A024072

Adjacent sequences: A015937 A015938 A015939 this_sequence A015941 A015942 A015943

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com)

Corrected and extended by Olivier Wittenberg, May 23 2004. No other terms below 10^10.