|
%I #11 Jun 20 2021 08:25:04
%S 4,5,6,8,10,11,12,15,16,17,19,20,21,24,25,26,32,33,34,38,39,40,41,42,
%T 43,46,47,48,60,62,63,116,117,150,153,160,204,207,212,215,228,229,230,
%U 231,232,235,236,237,238,239,240,242,243,244,245
%N Numbers whose base-4 and base-7 expansions have no digits in common.
%H Vincenzo Librandi, <a href="/A037354/b037354.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[500],Intersection[IntegerDigits[#,4],IntegerDigits[#,7]]=={}&] (* _Vincenzo Librandi_, Jun 07 2012 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
