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 A293870 #23 Feb 21 2024 01:49:43 %S A293870 10,100,101,102,103,104,105,106,107,108,109,110,210,310,410,510,610, %T A293870 710,810,910,1000,1001,1002,1003,1004,1005,1006,1007,1008,1009,1010, %U A293870 1011,1012,1013,1014,1015,1016,1017,1018,1019,1020,1021,1022,1023,1024,1025,1026,1027,1028,1029,1030,1031 %N A293870 Numbers having '10' as substring of their digits. %C A293870 Row 10 of A292690 and A293869. %H A293870 <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a> %F A293870 a(n) ~ n. - _Charles R Greathouse IV_, Nov 02 2022 %t A293870 Select[Range[1100],SequenceCount[IntegerDigits[#],{1,0}]>0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 07 2019 *) %o A293870 (PARI) is_A293870 = has(n, p=10, m=10^#Str(p))=until(p>n\=10, n%m==p&&return(1)) %Y A293870 Cf. A292690, A293869. %Y A293870 Cf. A011540, A011531, A011532, A011533, A011534, A011535, A011536, A011537, A011538, A011539: analog for '0' - '9'. %Y A293870 Cf. A293871, A293872, A293873, A293874, A293875, A293876, A293877, A293878, A293879, A293880: same for '11' - '20'. %Y A293870 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 A293870 nonn,base,easy %O A293870 1,1 %A A293870 _M. F. Hasler_, Oct 18 2017