|
|
A174976
|
|
Primes which have an equal number of 0,1,2 in their Base_3 expansion.
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
MATHEMATICA
|
Prime[Select[Range[7! ], Count[IntegerDigits[Prime[ # ], 3], 0]==Count[IntegerDigits[Prime[ # ], 3], 1]==Count[IntegerDigits[Prime[ # ], 3], 2]&]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|