A214179 Primes p such that least positive primitive root of p is equal to number of 1's in binary representation of p.

2, 3, 5, 7, 47, 103, 137, 157, 167, 239, 307, 397, 431, 433, 499, 521, 641, 647, 919, 997, 1163, 1303, 1429, 1543, 1753, 1811, 2063, 2081, 2087, 2111, 2377, 2591, 2711, 2833, 3119, 3181, 3217, 3719, 4079, 4153, 4211, 4271, 4273, 4297, 4549, 4643, 4721, 4931, 4993, 5399, 5857

Offset: 1

Author

Juri-Stepan Gerasimov, Jul 07 2012

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A001918, A014499.

Programs

Mathematica

Select[Prime[Range[750]], PrimitiveRoot[#] == Plus@@IntegerDigits[#, 2] &] (* Alonso del Arte, Jul 09 2012 *)