A077500 Primes of the form 2^r*p^s + 1, where p is an odd prime.

2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 37, 41, 47, 53, 59, 73, 83, 89, 97, 101, 107, 109, 113, 137, 149, 163, 167, 173, 179, 193, 197, 227, 233, 251, 257, 263, 269, 293, 317, 347, 353, 359, 383, 389, 401, 433, 449, 467, 479, 487, 503, 509, 557, 563, 569, 577, 587

Offset: 1

Author

Amarnath Murthy, Nov 07 2002

Keywords

• nonn

Comments

Primes p such that p-1 has at most one odd prime divisor.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A005109, A077497, A077498, A077499.

Programs

Mathematica

Select[Prime[Range[110]],Length[Select[FactorInteger[#-1] [[All, 1]], OddQ]]<2&] (* Harvey P. Dale, Oct 09 2017 *)

Extensions

Corrected and extended by Sascha Kurz, Jan 04 2003