A174976 Primes which have an equal number of 0,1,2 in their Base_3 expansion.

11, 19, 6719, 6791, 6793, 6857, 6883, 6911, 6947, 6959, 6983, 6991, 7001, 7013, 7027, 7039, 7151, 7187, 7193, 7243, 7247, 7369, 7433, 7477, 7487, 7499, 7517, 7559, 7607, 7703, 7793, 7823, 7841, 7877, 7949, 7993, 8069, 8087, 8089, 8117, 8123, 8147, 8161

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Apr 03 2010

Keywords

• nonn
• base

Comments

IntegerDigits[11,3] -> 1,0,2, IntegerDigits[19,3] -> 2,0,1, IntegerDigits[6791,3] -> 1,0,0,0,2,2,1,1,2,...

Crossrefs

Cf. A066196

Programs

Mathematica

Prime[Select[Range[7! ],Count[IntegerDigits[Prime[ # ],3],0]==Count[IntegerDigits[Prime[ # ],3],1]==Count[IntegerDigits[Prime[ # ],3],2]&]]