A293879 Numbers having '19' as substring of their digits.
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
Offset: 1
Crossrefs
Programs
-
Mathematica
Select[Range[2000],SequenceCount[IntegerDigits[#],{1,9}]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 11 2019 *)
-
PARI
is_A293879 = has(n, p=19, m=10^#Str(p))=until(p>n\=10, n%m==p&&return(1))
Formula
a(n) ~ n. - Charles R Greathouse IV, Nov 02 2022
Comments