A129848 - OEIS

%I #6 Sep 16 2015 04:36:55

%S 10,16,20,23,28,30,31,32,33,34,40,41,46,49,50,52,60,62,64,65,66,67,69,

%T 70,72,80,82,83,87,90,93,98,99,100,101,102,103,104,105,110,114,116,

%U 120,123,124,125,128,129,130,132,133,134,135,140,141,145,146,149,150,153

%N Numbers n such that n and 4n share at least one digit.

%p a:=proc(n) if nops(convert(convert(n,base,10),set) intersect convert(convert(4*n,base,10),set))>0 then n else fi end: seq(a(n),n=1..180); # _Emeric Deutsch_, May 27 2007

%t Select[Range[300],Length[Intersection[IntegerDigits[ # ],IntegerDigits[4*# ]]]> 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