A293873 Numbers having '13' as substring of their digits.

13, 113, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 213, 313, 413, 513, 613, 713, 813, 913, 1013, 1113, 1130, 1131, 1132, 1133, 1134, 1135, 1136, 1137, 1138, 1139, 1213, 1300, 1301, 1302, 1303, 1304, 1305, 1306, 1307, 1308, 1309, 1310, 1311, 1312, 1313, 1314, 1315

Offset

1,1

Comments

Row 13 of A292690 and A293869. A121033 is the subsequence of multiples of 13.

Links

Table of n, a(n) for n=1..49.

Index entries for 10-automatic sequences

Formula

a(n) ~ n. - Charles R Greathouse IV, Nov 02 2022

Mathematica

Select[Range[1350], SequenceCount[IntegerDigits[#], {1, 3}]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 31 2017 *)

Prog

(PARI) is_A293873 = has(n, p=13, m=10^#Str(p))=until(p>n\=10, n%m==p&&return(1))

Crossrefs

Cf. A292690, A293869.

Cf. A011540, A011531, A011532, A011533, A011534, A011535, A011536, A011537, A011538, A011539: analog for '0' - '9'.

Cf. A293870, A293871, A293872, A293874, A293875, A293876, A293877, A293878, A293879, A293880: same for '10' - '20'.

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.

Sequence in context: A199642 A087609 A302307 * A044345 A166573 A044726

Adjacent sequences: A293870 A293871 A293872 * A293874 A293875 A293876

Keyword

nonn,base,easy

Author

M. F. Hasler, Oct 18 2017

Status

approved