|
%I #7 Mar 23 2021 05:20:44
%S 788,30818,60848,90878,120908,150938,180968,210998,210999,241028,
%T 271058,301088,331118,361148,391178,421208,451238,466254,466255,
%U 481268,511298,541328,571358,601388,631418,661448,691478,721508,721509,751538
%N Smallest of 6 consecutive integers divisible respectively by 6 consecutive primes.
%H Amiram Eldar, <a href="/A072722/b072722.txt">Table of n, a(n) for n = 1..10000</a>
%e 30818 is a term as 30818, 30818, 30819, 30820, 30821 and 30822 are divisible by 2, 3, 5, 7 and 11 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, 5} ]; k = 1; While[ k < l + 1 && Union[ Mod[ t, NestList[ NextPrim, p[[ k ]], 5 ]]] != {0}, k++ ]; If[ k < l + 1, Print[ n ]], {n, 2, 811597} ]
%Y Cf. A073606, A073607, A072555, A073754, A073756, A072562.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Aug 07 2002
|
