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 A074853 #16 Apr 19 2025 03:56:46
%S A074853 900,1764,4356,4900,6084,7560,10404,11025,11880,12100,12996,13440,
%T A074853 14040,16632,16900,18360,19044,19656,20520,21000,21120,23716,24840,
%U A074853 24960,25704,27225,28728,28900,29568,30276,30888,31320,32640,33000,33124,33480,34596,34776,34944
%N A074853 Numbers k not in A065036 but such that tau(k) = omega(k)^3.
%C A074853 If k is in A065036 tau(k) = omega(k)^3, since k = p^3*q and there are 8 divisors of k: 1, p, q, p^2, p^3, p*q, p^2*q, p^3*q while omega(k)^3 = 2^3 = 8.
%H A074853 Charles R Greathouse IV, <a href="/A074853/b074853.txt">Table of n, a(n) for n = 1..10000</a>
%t A074853 q[k_] := Module[{e = Sort[FactorInteger[k][[;;, 2]]]}, e != {1, 3} && Times @@ (e+1) == Length[e]^3]; Select[Range[35000], q] (* _Amiram Eldar_, Apr 19 2025 *)
%o A074853 (PARI) is(n)=my(f=factor(n)); numdiv(f)==omega(f)^3 && f[,2]!=[3,1]~ && f[,2]!=[1,3]~ \\ _Charles R Greathouse IV_, Oct 16 2015
%Y A074853 Cf. A000005, A001221, A065036.
%K A074853 nonn
%O A074853 1,1
%A A074853 _Benoit Cloitre_, Sep 10 2002