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 A331048 #5 Jan 11 2020 15:27:07
%S A331048 1,1,1,2,1,1,1,2,2,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,2,1,2,1,1,1,1,2,1,1,
%T A331048 1,2,1,1,1,1,1,1,1,1,1,1,1,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,3,1,1,1,1,
%U A331048 1,1,1,2,1,1,1,1,1,1,1,2,2,1,1,1,1,1,1
%N A331048 Nearest integer to A001055(n)/A045778(n), where A001055 is factorizations and A045778 is strict factorizations.
%C A331048 A factorization of n is a finite, nondecreasing sequence of positive integers > 1 with product n. It is strict if the factors are all different.
%t A331048 facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
%t A331048 Table[Round[Length[facs[n]]/Length[Select[facs[n],UnsameQ@@#&]]],{n,100}]
%Y A331048 The exact quotient is A331023/A331024.
%Y A331048 The same for integer partitions is A330996 ~ A330994/A330995.
%Y A331048 Cf. A001055, A001222, A002033, A005117, A045778, A045779, A045780, A045782, A045783, A330972, A330977, A330991.
%K A331048 nonn,frac
%O A331048 1,4
%A A331048 _Gus Wiseman_, Jan 10 2020