|
Search: id:A072722
|
|
|
| A072722 |
|
Smallest of 6 consecutive integers divisible respectively by 6 consecutive primes. |
|
+0
1
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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 and A072562.
Sequence in context: A068660 A097775 A072730 this_sequence A167587 A104398 A027817
Adjacent sequences: A072719 A072720 A072721 this_sequence A072723 A072724 A072725
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 07 2002
|
|
|
Search completed in 0.002 seconds
|
