A072722 Smallest of 6 consecutive integers divisible respectively by 6 consecutive primes.

788, 30818, 60848, 90878, 120908, 150938, 180968, 210998, 210999, 241028, 271058, 301088, 331118, 361148, 391178, 421208, 451238, 466254, 466255, 481268, 511298, 541328, 571358, 601388, 631418, 661448, 691478, 721508, 721509, 751538

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Example

30818 is a term as 30818, 30818, 30819, 30820, 30821 and 30822 are divisible by 2, 3, 5, 7 and 11 respectively.

Mathematica

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} ]

Crossrefs

Cf. A073606, A073607, A072555, A073754, A073756, A072562.

Sequence in context: A321210 A072730 A180100 * A180159 A207280 A207476

Adjacent sequences: A072719 A072720 A072721 * A072723 A072724 A072725

Keyword

nonn

Author

Robert G. Wilson v, Aug 07 2002

Status

approved