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

10, 16, 20, 23, 28, 30, 31, 32, 33, 34, 40, 41, 46, 49, 50, 52, 60, 62, 64, 65, 66, 67, 69, 70, 72, 80, 82, 83, 87, 90, 93, 98, 99, 100, 101, 102, 103, 104, 105, 110, 114, 116, 120, 123, 124, 125, 128, 129, 130, 132, 133, 134, 135, 140, 141, 145, 146, 149, 150, 153

Offset: 1

Author

Eric Angelini, May 22 2007

Keywords

• base
• easy
• nonn

Programs

Maple

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

Mathematica

Select[Range[300],Length[Intersection[IntegerDigits[ # ],IntegerDigits[4*# ]]]> 0 &] (* Stefan Steinerberger, May 24 2007 *)

Extensions

More terms from Stefan Steinerberger and Emeric Deutsch, May 24 2007