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 A293873 #16 Feb 18 2024 08:30:08
%S A293873 13,113,130,131,132,133,134,135,136,137,138,139,213,313,413,513,613,
%T A293873 713,813,913,1013,1113,1130,1131,1132,1133,1134,1135,1136,1137,1138,
%U A293873 1139,1213,1300,1301,1302,1303,1304,1305,1306,1307,1308,1309,1310,1311,1312,1313,1314,1315
%N A293873 Numbers having '13' as substring of their digits.
%C A293873 Row 13 of A292690 and A293869. A121033 is the subsequence of multiples of 13.
%H A293873 <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>
%F A293873 a(n) ~ n. - _Charles R Greathouse IV_, Nov 02 2022
%t A293873 Select[Range[1350],SequenceCount[IntegerDigits[#],{1,3}]>0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 31 2017 *)
%o A293873 (PARI) is_A293873 = has(n, p=13, m=10^#Str(p))=until(p>n\=10, n%m==p&&return(1))
%Y A293873 Cf. A292690, A293869.
%Y A293873 Cf. A011540, A011531, A011532, A011533, A011534, A011535, A011536, A011537, A011538, A011539: analog for '0' - '9'.
%Y A293873 Cf. A293870, A293871, A293872, A293874, A293875, A293876, A293877, A293878, A293879, A293880: same for '10' - '20'.
%Y A293873 Cf. A121041, A121022, A121023, A121024, A121025, A121026, A121027, A121028, A121029, A121030, A121031, A121032, A121033, A121034, A121035, A121036, A121037, A121038, A121039, A121040: subsequences of the above, containing only multiples of the pattern p.
%K A293873 nonn,base,easy
%O A293873 1,1
%A A293873 _M. F. Hasler_, Oct 18 2017