This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A214179 #15 Sep 25 2021 06:49:22 %S A214179 2,3,5,7,47,103,137,157,167,239,307,397,431,433,499,521,641,647,919, %T A214179 997,1163,1303,1429,1543,1753,1811,2063,2081,2087,2111,2377,2591,2711, %U A214179 2833,3119,3181,3217,3719,4079,4153,4211,4271,4273,4297,4549,4643,4721,4931,4993,5399,5857 %N A214179 Primes p such that least positive primitive root of p is equal to number of 1's in binary representation of p. %H A214179 Amiram Eldar, <a href="/A214179/b214179.txt">Table of n, a(n) for n = 1..10000</a> %t A214179 Select[Prime[Range[750]], PrimitiveRoot[#] == Plus@@IntegerDigits[#, 2] &] (* _Alonso del Arte_, Jul 09 2012 *) %Y A214179 Cf. A001918, A014499. %K A214179 nonn,base %O A214179 1,1 %A A214179 _Juri-Stepan Gerasimov_, Jul 07 2012