login
A214179
Primes p such that least positive primitive root of p is equal to number of 1's in binary representation of p.
1
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,1
LINKS
MATHEMATICA
Select[Prime[Range[750]], PrimitiveRoot[#] == Plus@@IntegerDigits[#, 2] &] (* Alonso del Arte, Jul 09 2012 *)
CROSSREFS
Sequence in context: A096843 A052016 A171020 * A178237 A118842 A364831
KEYWORD
nonn,base
AUTHOR
STATUS
approved