This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A129846 #13 Aug 26 2025 03:53:36 %S A129846 5,10,13,14,15,17,20,24,25,28,30,31,35,40,41,42,45,47,48,49,50,51,52, %T A129846 53,55,56,57,60,61,62,65,70,71,72,75,79,80,82,85,86,90,92,93,95,97,98, %U A129846 99,100,101,102,103,104,105,106,107,110,113,114,115,117,120,123,124,125 %N A129846 Numbers k such that k and 3*k share at least one digit. %H A129846 Robert Israel, <a href="/A129846/b129846.txt">Table of n, a(n) for n = 1..10000</a> %p A129846 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 A129846 Select[Range[300],Length[Intersection[IntegerDigits[ # ],IntegerDigits[3*# ]]] > 0 &] (* _Stefan Steinerberger_, May 24 2007 *) %Y A129846 Complement of A140467. %K A129846 base,easy,nonn,changed %O A129846 1,1 %A A129846 _Eric Angelini_, May 22 2007 %E A129846 More terms from _Stefan Steinerberger_ and _Emeric Deutsch_, May 24 2007