OFFSET
1,1
LINKS
FORMULA
a(n) ~ n. - Charles R Greathouse IV, Nov 02 2022
MATHEMATICA
Select[Range[2000], StringContainsQ[IntegerString[#], "18"] &] (* Paolo Xausa, Feb 25 2024 *)
PROG
(PARI) is_A293878 = has(n, p=18, 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, A293879, A293880: same for '10' - '20'.
KEYWORD
nonn,base,easy
AUTHOR
M. F. Hasler, Oct 18 2017
STATUS
approved