This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A069021 #9 Aug 21 2022 21:31:53
%S A069021 1,8,48,242,844,22020,217070,1092747,8870024,221167422,221167422,
%T A069021 47255689915,82462576220,1043460553364,79180770078548,
%U A069021 3215226335143218,23742453640900972
%N A069021 Start of the first occurrence of n consecutive numbers divisible by a square greater than 1.
%t A069021 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 A069021 Apart from first term, identical to A045882.
%K A069021 nonn
%O A069021 1,2
%A A069021 _Amarnath Murthy_, Apr 02 2002
%E A069021 Definition clarified by _Harvey P. Dale_, Aug 21 2022