|
Search: id:A072730
|
|
|
| A072730 |
|
Smallest of 5 consecutive integers divisible respectively by 5 consecutive primes. |
|
+0
1
|
|
| 788, 789, 3098, 5408, 7718, 10028, 12338, 14648, 15804, 16958, 19268, 21578, 23888, 26198, 28508, 30818, 30819, 33128, 35438, 37748, 40058, 40830, 42368, 44678, 45834, 46988, 49298, 51608, 53918, 56228, 58538, 60848, 60849, 63158
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
3098 is a term as 3098, 3099, 3100, 3101 and 3102 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, 4} ]; k = 1; While[ k < l + 1 && Union[ Mod[ t, NestList[ NextPrim, p[[ k ]], 4 ]]] != {0}, k++ ]; If[ k < l + 1, Print[ n ]], {n, 2, 72397} ]
|
|
CROSSREFS
|
Cf. A073606, A073607, A072555, A073755, A073756 and A072562.
Sequence in context: A045231 A068660 A097775 this_sequence A072722 A167587 A104398
Adjacent sequences: A072727 A072728 A072729 this_sequence A072731 A072732 A072733
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 07 2002
|
|
|
Search completed in 0.002 seconds
|
