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 A241141 #10 Apr 25 2014 11:21:07 %S A241141 5,10,15,19,20,21,24,25,30,31,35,39,40,42,45,48,49,50,51,52,53,55,57, %T A241141 59,60,63,65,70,73,74,75,79,80,84,85,90,94,95,98,99,100,101,102,103, %U A241141 104,105,106,108,110,115,119,120,122,123,124,125,126,130,135,136,139,140,142,143,145,147,148,149,150,151,153 %N A241141 Numbers n such that n and 5n share at least one digit. %C A241141 All numbers n which are congruent to 0 (mod 5) have this characteristic. %e A241141 19 is in the sequence since 19 and 5*19 = 95 and together they share the digit 9. %t A241141 fQ[n_] := Intersection[ IntegerDigits[ n], IntegerDigits[5 n]] != {} && Mod[n, 5] != 0; Select[ Range[ 100], fQ] %o A241141 (PARI) isok(n) = #setintersect(Set(digits(n)), Set(digits(5*n))); \\ _Michel Marcus_, Apr 17 2014 %Y A241141 Cf. A129845, A129846, A129848, A241142, A241143, A241144, A241145, A241146. %K A241141 base,easy,nonn %O A241141 1,1 %A A241141 _Robert G. Wilson v_, Apr 16 2014