|
|
A293879
|
|
Numbers having '19' as substring of their digits.
|
|
12
|
|
|
19, 119, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 219, 319, 419, 519, 619, 719, 819, 919, 1019, 1119, 1190, 1191, 1192, 1193, 1194, 1195, 1196, 1197, 1198, 1199, 1219, 1319, 1419, 1519, 1619, 1719, 1819, 1900, 1901, 1902, 1903, 1904, 1905, 1906, 1907, 1908, 1909, 1910, 1911
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[Range[2000], SequenceCount[IntegerDigits[#], {1, 9}]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 11 2019 *)
|
|
PROG
|
(PARI) is_A293879 = has(n, p=19, 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
|
|
|
|