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 A281019 #13 Sep 08 2022 08:46:18
%S A281019 1,1,1,2,2,8,8,32,96,576,576,4608,4608,36864,258048,2064384,2064384,
%T A281019 24772608,24772608,297271296,2675441664,32105299968,32105299968,
%U A281019 513684799488,2568423997440,35957935964160,323621423677440,5177942778839040,5177942778839040
%N A281019 Partial products of A051953; a(1) = 1.
%H A281019 Indranil Ghosh, <a href="/A281019/b281019.txt">Table of n, a(n) for n = 1..505</a>
%F A281019 a(1) = 1; for n>1, a(n) = Product_{i=2..n} A051953(i).
%t A281019 Table[If[n==1, 1, Product[i - EulerPhi[i], {i, 2, n}]], {n, 1, 29}] (* _Indranil Ghosh_, Mar 09 2017 *)
%o A281019 (Magma) [1] cat [&*[#[h: h in [2..k] | GCD(h,k) ne 1]: k in [2..n]]: n in [2..100]]
%o A281019 (PARI) for (n=1, 29, print1(if(n==1, 1, prod(i=2, n, i - eulerphi(i))),", ")); \\ _Indranil Ghosh_, Mar 09 2017
%Y A281019 Cf. A051953(n) = number of cototatives of n.
%Y A281019 Cf. A063985.
%K A281019 nonn
%O A281019 1,4
%A A281019 _Jaroslav Krizek_, Jan 13 2017