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 A104368 #36 Sep 20 2023 05:49:05
%S A104368 1,1,1,1,1,1,2,1,1,2,1,1,2,2,2,4,4,2,1,4,2,2,3,2,1,4,3,3,1,3,4,5,4,5,
%T A104368 4,3,3,4,7,2,5,4,4,2,4,3,4,2,3,7,4,2,4,2,3,2,4,3,4,5,3,4,4,2,1,2,4,6,
%U A104368 4,3,3,4,4,6,6,6,5,3,6,4,5,3,3,5,3,4,3,4,7,6,4,3,4,2,3,3,2,2,5,2,3,3,6,4,3,3,2,3,2,6
%N A104368 Number of distinct prime factors of A104365(n) = A104350(n) + 1.
%H A104368 Max Alekseyev, <a href="/A104368/b104368.txt">Table of n, a(n) for n = 1..158</a> (terms 142..151 from Tyler Busby)
%H A104368 Reinhard Zumkeller, <a href="/A104350/a104350.txt">Products of largest prime factors of numbers <= n</a>
%F A104368 a(n) = A001221(A104365(n)).
%t A104368 A104350[n_] := Product[FactorInteger[k][[-1, 1]], {k, 1, n}]; PrimeNu[
%t A104368 Table[A104350[n] + 1, {n, 2, 50}]] (* _G. C. Greubel_, May 10 2017 *)
%Y A104368 Cf. A001221, A054988, A066856, A104350, A104359, A104360, A104365, A104366, A104367, A104369, A104370, A104371, A104372.
%K A104368 nonn
%O A104368 1,7
%A A104368 _Reinhard Zumkeller_, Mar 06 2005
%E A104368 a(51)-a(76) from _Amiram Eldar_, Feb 12 2020
%E A104368 a(77)-a(81) from _Jinyuan Wang_, Apr 02 2020
%E A104368 Terms a(82) onward from _Max Alekseyev_, Oct 03 2022