|
%I #7 Mar 23 2021 05:20:37
%S 158,368,578,788,789,790,998,1208,1418,1628,1838,1944,2048,2258,2468,
%T 2678,2888,3098,3099,3308,3518,3728,3938,4148,4254,4358,4367,4568,
%U 4778,4988,5198,5408,5409,5618,5795,5828,6038,6248,6458,6564,6668,6797,6878
%N Smallest of four consecutive integers divisible by four consecutive primes respectively.
%H Amiram Eldar, <a href="/A072555/b072555.txt">Table of n, a(n) for n = 1..10000</a>
%e 158 is a term as 158, 159, 160 and 161 are divisible by 2, 3, 5 and 7 respectively.
%t f[ n_Integer ] := Flatten[ Table[ #1 ] & @@@ FactorInteger[ n ] ]; NextPrim[ n_ ] := Block[ {k = n + 1}, While[ !PrimeQ[ k ], k++ ]; k ]; Do[ p = f[ n ]; l = Length[ p ]; t = Table[ n + i, {i, 0, 3} ]; k = 1; While[ k < l + 1 && Union[ Mod[ t, NestList[ NextPrim, p[ [ k ] ], 3 ] ] ] != {0}, k++ ]; If[ k < l + 1, Print[ n ] ], {n, 2, 7297} ]
%Y Cf. A073606, A073607, A073754, A073755, A073756, A072562.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Aug 06 2002
|
