|
|
A293873
|
|
Numbers having '13' as substring of their digits.
|
|
11
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
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. 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.
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|