|
|
A271443
|
|
Earliest start of a run of n numbers divisible by a cube larger than one.
|
|
13
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
a(9) = 2604639091138248 and the following 8 numbers are divisible by 2^3, 11^3, 5^3, 17^3, 7^3, 13^3, 3^3, 19^3, and 2^4, respectively.
|
|
MATHEMATICA
|
a[n_] := Block[{k=1, c=0}, While[ c<n, If[ Max[ Last /@ FactorInteger[ ++k]] < 3, c=0, c++]]; k-n+1]; Array[a, 4]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|