%I #9 Aug 21 2022 21:31:53
%S 1,8,48,242,844,22020,217070,1092747,8870024,221167422,221167422,
%T 47255689915,82462576220,1043460553364,79180770078548,
%U 3215226335143218,23742453640900972
%N Start of the first occurrence of n consecutive numbers divisible by a square greater than 1.
%t 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}]
%Y Apart from first term, identical to A045882.
%K nonn
%O 1,2
%A _Amarnath Murthy_, Apr 02 2002
%E Definition clarified by _Harvey P. Dale_, Aug 21 2022
|