%I #13 Jun 10 2023 03:09:18
%S 2,2,6,12,60,60,252,504,504,504,7260,7260,10296,11760,11760,11760,
%T 56160,56160,198016,198016,1176480,1323008,2992500,6240366,13442580,
%U 13442580,37536408,37536408,90725804,90725804,319800096,319800096,319800096,800640126,2201169600,2201169600,4656965040,5250966084,5250966084
%N a(n) = smallest positive even integer k such that k or one of its left substrings is divisible by any integer from {1..n}.
%H Hugo van der Sanden, <a href="https://github.com/hvds/seq/tree/master/A169858">A169858</a>: C source code to calculate terms (has an option to compute A175516).
%o (Python)
%o from itertools import count, islice
%o def agen(): # generator of terms
%o n = 1
%o for k in count(2, 2):
%o s = str(k)
%o prefixes = [int(s[:i+1]) for i in range(len(s))]
%o if all(any(ki%m == 0 for ki in prefixes) for m in range(3, n+1)):
%o yield k; n += 1
%o while any(ki%n == 0 for ki in prefixes):
%o yield k; n += 1
%o print(list(islice(agen(), 20))) # _Michael S. Branicky_, Jun 09 2023
%Y Cf. A169858.
%K base,nonn
%O 1,1
%A _Zak Seidov_, Jun 03 2010
%E Corrected and extended by _Hugo van der Sanden_, Jun 01 2010
|