OFFSET
1,1
COMMENTS
The sequence is infinite as 30*k + 8 is a member for all k. What is the longest string of consecutive integers?
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
20 is a term as 20,21 and 22 are divisible by 5,7 and 11 respectively.
114 is a term as 114, 115 and 116 are divisible by 19, 23 and 29 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, 2} ]; k = 1; While[ k < l + 1 && Union[ Mod[ t, NestList[ NextPrim, p[[ k ]], 2 ] ]] != {0}, k++ ]; If[ k < l + 1, Print[ n ]], {n, 2, 1117} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Aug 04 2002
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Aug 06 2002
STATUS
approved