|
%I #2 Mar 31 2012 12:38:35
%S 11,19,6719,6791,6793,6857,6883,6911,6947,6959,6983,6991,7001,7013,
%T 7027,7039,7151,7187,7193,7243,7247,7369,7433,7477,7487,7499,7517,
%U 7559,7607,7703,7793,7823,7841,7877,7949,7993,8069,8087,8089,8117,8123,8147,8161
%N Primes which have an equal number of 0,1,2 in their Base_3 expansion.
%C IntegerDigits[11,3] -> 1,0,2, IntegerDigits[19,3] -> 2,0,1, IntegerDigits[6791,3] -> 1,0,0,0,2,2,1,1,2,...
%t Prime[Select[Range[7! ],Count[IntegerDigits[Prime[ # ],3],0]==Count[IntegerDigits[Prime[ # ],3],1]==Count[IntegerDigits[Prime[ # ],3],2]&]]
%Y Cf. A066196
%K nonn,base
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 03 2010
|
