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 A110901 #13 Dec 31 2022 18:52:28
%S A110901 4,32,288,3456,55296,995328,19906560,477757440,11943936000,
%T A110901 322486272000,9029615616000,288947699712000,10402117189632000,
%U A110901 416084687585280000,18307726253752320000,823847681418854400000,39544688708105011200000
%N A110901 Product_{k=1..n} (A013929(k)), the product of the first n positive integers that are each divisible by at least one square >= 4.
%e A110901 Since 4, 8, 9 and 12 are the first 4 nonsquarefree positive integers, the fourth term of the sequence is 4*8*9*12 = 3456.
%t A110901 Rest[ FoldList[ Times, 1, Select[ Range[2, 48], (Union[Last /@ FactorInteger[ # ]][[ -1]] > 1) == True &]]] (* _Robert G. Wilson v_ *)
%t A110901 FoldList[Times,Select[Range[50],!SquareFreeQ[#]&]] (* _Harvey P. Dale_, Dec 31 2022 *)
%o A110901 (PARI) a=1;for(n=1,48,if(!issquarefree(n),print1(a=a*n,",")))
%Y A110901 Cf. A013929, A111059.
%K A110901 nonn
%O A110901 1,1
%A A110901 _Leroy Quet_, Oct 09 2005
%E A110901 More terms from _Klaus Brockhaus_ and _Robert G. Wilson v_, Oct 11 2005