A293870 Numbers having '10' as substring of their digits.
10, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 210, 310, 410, 510, 610, 710, 810, 910, 1000, 1001, 1002, 1003, 1004, 1005, 1006, 1007, 1008, 1009, 1010, 1011, 1012, 1013, 1014, 1015, 1016, 1017, 1018, 1019, 1020, 1021, 1022, 1023, 1024, 1025, 1026, 1027, 1028, 1029, 1030, 1031
Offset: 1
Crossrefs
Programs
-
Mathematica
Select[Range[1100],SequenceCount[IntegerDigits[#],{1,0}]>0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 07 2019 *)
-
PARI
is_A293870 = has(n, p=10, 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