1,1

Do[ If[ PrimeQ[2^n - 3n], Print[n]], {n, 1, 15000, 2}]

Cf. A082101.

Sequence in context: A075409 A058079 A076787 this_sequence A045446 A106074 A128335

Adjacent sequences: A094960 A094961 A094962 this_sequence A094964 A094965 A094966

nonn,more

Robert G. Wilson v (rgwv(AT)rgwv.com), May 26 2004