%I A072555
%S A072555 158,368,578,788,789,790,998,1208,1418,1628,1838,1944,2048,2258,2468,
%T A072555 2678,2888,3098,3099,3308,3518,3728,3938,4148,4254,4358,4367,4568,4778,
%U A072555 4988,5198,5408,5409,5618,5795,5828,6038,6248,6458,6564,6668,6797,6878
%N A072555 Smallest of four consecutive integers divisible by four consecutive primes 
               respectively.
%e A072555 158 is a term as 158, 159, 160 and 161 are divisible by 2, 3, 5 and 7 
               respectively.
%t A072555 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 A072555 Cf. A073606, A073607, A073754, A073755, A073756 and A072562.
%Y A072555 Sequence in context: A045245 A053235 A088728 this_sequence A056088 A159418 
               A116638
%Y A072555 Adjacent sequences: A072552 A072553 A072554 this_sequence A072556 A072557 
               A072558
%K A072555 nonn
%O A072555 1,1
%A A072555 Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 06 2002