|
Search: id:A072555
|
|
|
| A072555 |
|
Smallest of four consecutive integers divisible by four consecutive primes respectively. |
|
+0
7
|
|
| 158, 368, 578, 788, 789, 790, 998, 1208, 1418, 1628, 1838, 1944, 2048, 2258, 2468, 2678, 2888, 3098, 3099, 3308, 3518, 3728, 3938, 4148, 4254, 4358, 4367, 4568, 4778, 4988, 5198, 5408, 5409, 5618, 5795, 5828, 6038, 6248, 6458, 6564, 6668, 6797, 6878
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
158 is a term as 158, 159, 160 and 161 are divisible by 2, 3, 5 and 7 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, 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} ]
|
|
CROSSREFS
|
Cf. A073606, A073607, A073754, A073755, A073756 and A072562.
Adjacent sequences: A072552 A072553 A072554 this_sequence A072556 A072557 A072558
Sequence in context: A045245 A053235 A088728 this_sequence A056088 A159418 A116638
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 06 2002
|
|
|
Search completed in 0.002 seconds
|
