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 A112758 #13 Apr 12 2020 13:04:33
%S A112758 0,1,1,1,1,2,1,1,2,2,2,1,2,2,2,1,1,3,1,2,2,2,2,2,2,3,1,2,2,2,1,3,2,2,
%T A112758 2,3,1,1,2,2,3,2,2,3,2,2,2,2,3,1,2,1,3,2,3,2,2,3,2,2,2,2,2,3,3,2,2,1,
%U A112758 3,2,3,1,2,2,2,3,1,3,2,2,3,2,3,3,2,2,1,3,2,2,3,2,2,2,2,3,3,2,3,2,2,3,2,3,2
%N A112758 Number of distinct prime factors of n-th 5-smooth number.
%H A112758 Amiram Eldar, <a href="/A112758/b112758.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..750 from G. C. Greubel)
%F A112758 a(n) = A001221(A051037(n)).
%F A112758 a(n) = 3 - 0^A112760(n) - 0^A112761(n) - 0^A112762(n).
%F A112758 a(n) <= 3.
%t A112758 aa = {}; Do[If[8 n - EulerPhi[30 n] == 0, AppendTo[aa, n]], {n, 1, 100}]; PrimeNu[aa] (* _G. C. Greubel_, May 07 2017 *)
%t A112758 PrimeNu[#]&/@Select[Range[2000],Max[FactorInteger[#][[All,1]]]<6&] (* _Harvey P. Dale_, Apr 12 2020 *)
%Y A112758 Cf. A001221, A051037, A086412, A112753, A112759, A112760, A112761, A112762.
%K A112758 nonn
%O A112758 1,6
%A A112758 _Reinhard Zumkeller_, Sep 18 2005