A069021 Start of the first occurrence of n consecutive numbers divisible by a square greater than 1.

1, 8, 48, 242, 844, 22020, 217070, 1092747, 8870024, 221167422, 221167422, 47255689915, 82462576220, 1043460553364, 79180770078548, 3215226335143218, 23742453640900972

Offset: 1

Author

Amarnath Murthy, Apr 02 2002

Keywords

• nonn

Crossrefs

Apart from first term, identical to A045882.

Programs

Mathematica

a = {1, 1}; k = 4; Do[ While[ Min[a] < 2, k++; a = Drop[a, 1]; a = Append[ a, Max[ Transpose[ FactorInteger[k]] [[2]] ]]]; Print[k - n + 1]; k++; a = Append[ a, Max[ Transpose[ FactorInteger[k]] [[2]] ]], {n, 2, 9}]

Extensions

Definition clarified by Harvey P. Dale, Aug 21 2022