A285846 A039938 with duplicates removed.
7, 37, 237, 1789, 4357, 14379, 19587, 93957, 189572, 189597, 1234397, 1839597, 1958798, 1983957, 3978594, 11983957, 19596487, 29195397, 39599197, 195991487, 339799143, 395991697, 1429199397, 1679895983, 1983994799, 2239951987, 11959939917, 15991995897
Offset: 1
Links
- Giovanni Resta, Table of n, a(n) for n = 1..32
Programs
-
Mathematica
Union@ Table[SelectFirst[Range[10^6], Times @@ Boole@ Map[DigitCount[#, 10, 7] > 0 &, # Range@ n] > 0 &], {n, 12}] (* Michael De Vlieger, Apr 27 2017, Version 10 *)
Extensions
a(19)-a(28) from Giovanni Resta, Apr 27 2017
Comments