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 A073354 #13 May 11 2023 08:47:20
%S A073354 1,1,1,6,1,1,1,28,84,1,1,924,1,1,1,120,1,18564,1,184756,1,1,1,134596,
%T A073354 53130,1,2925,40116600,1,1,1,496,1,1,1,1947792,1,1,1,847660528,1,1,1,
%U A073354 2104098963720,344867425584,1,1,12271512,85900584,10272278170,1
%N A073354 Binomial coefficient ( n, squarefree kernel(n) ).
%C A073354 a(n)=1 iff n is squarefree.
%H A073354 Robert Israel, <a href="/A073354/b073354.txt">Table of n, a(n) for n = 1..3315</a>
%F A073354 a(n) = binomial(n, A007947(n)).
%p A073354 f:= proc(n) local k;
%p A073354 k:= convert(numtheory:-factorset(n),`*`);
%p A073354 binomial(n,k)
%p A073354 end proc:
%p A073354 map(f, [$1..60]); # _Robert Israel_, May 07 2021
%t A073354 a[n_] := Binomial[n, Times @@ FactorInteger[n][[All, 1]]];
%t A073354 Table[a[n], {n, 1, 60}] (* _Jean-François Alcover_, May 11 2023 *)
%Y A073354 Cf. A007947, A005117, A073353, A066503, A064549, A003557.
%K A073354 nonn,look
%O A073354 1,4
%A A073354 _Reinhard Zumkeller_, Jul 29 2002