OFFSET
1,1
FORMULA
a(n) ~ n. - Charles R Greathouse IV, Nov 02 2022
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. A011540, A011531, A011532, A011533, A011534, A011535, A011536, A011537, A011538, A011539: analog for '0' - '9'.
Cf. A293870, A293871, A293872, A293873, A293874, A293875, A293876, A293877, A293878, A293880: same for '10' - '20'.
KEYWORD
nonn,base,easy
AUTHOR
M. F. Hasler, Oct 18 2017
STATUS
approved