|
%I #6 Sep 16 2015 04:37:13
%S 5,10,13,14,15,17,20,24,25,28,30,31,35,40,41,42,45,47,48,49,50,51,52,
%T 53,55,56,57,60,61,62,65,70,71,72,75,79,80,82,85,86,90,92,93,95,97,98,
%U 99,100,101,102,103,104,105,106,107,110,113,114,115,117,120,123,124,125
%N Numbers n such that n and 3n share at least one digit.
%p a:=proc(n) if nops(convert(convert(n,base,10),set) intersect convert(convert(3*n,base,10),set))>0 then n else fi end: seq(a(n),n=1..145); # _Emeric Deutsch_, May 27 2007
%t Select[Range[300],Length[Intersection[IntegerDigits[ # ],IntegerDigits[3*# ]]] > 0 &] (* _Stefan Steinerberger_, May 24 2007 *)
%K base,easy,nonn
%O 1,1
%A _Eric Angelini_, May 22 2007
%E More terms from _Stefan Steinerberger_ and _Emeric Deutsch_, May 24 2007
|
