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,1

Links

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

Mathematica

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

Crossrefs

Cf. A001918, A014499.

Sequence in context: A096843 A052016 A171020 * A178237 A118842 A364831

Adjacent sequences: A214176 A214177 A214178 * A214180 A214181 A214182

Keyword

nonn,base

Author

Juri-Stepan Gerasimov, Jul 07 2012

Status

approved