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 A081332 #8 Oct 14 2021 12:54:14
%S A081332 2,3,29,31,37,41,43,49,55,58,59,62,65,67,74,83,85,86,87,89,91,93,98,
%T A081332 109,110,111,113,116,118,123,124,130,131,134,137,147,148,155,163,165,
%U A081332 166,170,172,174,177,178,182,186,193,195,196,201,209,217,218,220,222,226
%N A081332 Numbers having a unique partition into two 3-smooth numbers.
%F A081332 A081326(a(n)) = 1.
%t A081332 nmax = 1000;
%t A081332 S = Select[Range[nmax], Max[FactorInteger[#][[All, 1]]] <= 3 &];
%t A081332 P[n_] := IntegerPartitions[n, {2}, TakeWhile[S, # < n &]];
%t A081332 selQ[n_] := Length[P[n]] == 1;
%t A081332 Select[Range[nmax], selQ] (* _Jean-François Alcover_, Oct 14 2021 *)
%Y A081332 Cf. A003586, A081326, A081333, A081330.
%K A081332 nonn
%O A081332 1,1
%A A081332 _Reinhard Zumkeller_, Mar 19 2003