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 A104360 #23 Oct 03 2022 17:04:41
%S A104360 0,1,1,1,1,1,2,1,1,1,2,2,2,2,1,2,3,3,1,3,3,3,1,2,4,4,2,2,5,4,2,3,2,3,
%T A104360 1,3,4,3,5,3,4,4,5,1,3,4,2,2,2,3,1,2,3,2,3,1,4,1,3,4,6,4,4,2,6,1,5,4,
%U A104360 4,1,2,5,7,4,5,3,4,4,5,4,5,2,4,4,5,3,3,3,2,5,2,5,4,7,2,5,3,2,6,3,4,2,3,3,3,5,4,3,5,2
%N A104360 Number of distinct prime factors of A104357(n) = A104350(n) - 1.
%H A104360 Max Alekseyev, <a href="/A104360/b104360.txt">Table of n, a(n) for n = 2..145</a>
%H A104360 Reinhard Zumkeller, <a href="/A104350/a104350.txt">Products of largest prime factors of numbers <= n</a>
%F A104360 a(n) = A001221(A104357(n)).
%t A104360 A104350[n_] := Product[FactorInteger[k][[-1, 1]], {k, 1, n}]; PrimeNu[Table[A104350[n] - 1, {n, 2,50}]] (* _G. C. Greubel_, May 10 2017 *)
%Y A104360 Cf. A001221, A054989, A066877, A104350, A104357, A104358, A104359, A104361, A104362, A104363, A104364, A104368.
%K A104360 nonn
%O A104360 2,7
%A A104360 _Reinhard Zumkeller_, Mar 06 2005
%E A104360 a(51)-a(74) from _Amiram Eldar_, Feb 12 2020
%E A104360 More terms from _Jinyuan Wang_, Apr 02 2020
%E A104360 Terms a(90) onward from _Max Alekseyev_, Oct 03 2022