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

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

Links

Table of n, a(n) for n=1..43.

Mathematica

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

Crossrefs

Cf. A066196

Sequence in context: A129908 A344431 A129909 * A003284 A257401 A283903

Adjacent sequences: A174973 A174974 A174975 * A174977 A174978 A174979

Keyword

nonn,base

Author

Vladimir Joseph Stephan Orlovsky, Apr 03 2010

Status

approved