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 A078314 #15 Sep 09 2024 02:40:52 %S A078314 1,1,2,2,2,1,3,1,3,1,2,1,3,1,2,2,3,1,2,2,3,2,3,2,4,1,2,2,2,2,3,2,3,2, %T A078314 2,2,3,3,2,1,3,2,4,3,4,2,4,2,4,2,2,3,3,3,3,2,5,2,2,1,2,2,3,2,2,1,3,3, %U A078314 2,3,2,1,4,1,2,4,3,2,2,3,3,3,4,1,2,2,3,2,3,2,3,3,4,1,2,1,3,1,4,3,2,2,3,2,3 %N A078314 Total number of prime factors of n*rad(n)+1 counted with multiplicity, where rad = A007947 (squarefree kernel). %H A078314 Reinhard Zumkeller, <a href="/A078314/b078314.txt">Table of n, a(n) for n = 1..10000</a> %F A078314 a(n) = A001222(A078310(n)). %t A078314 a[n_] := PrimeOmega[1 + n * Times @@ FactorInteger[n][[;;, 1]]]; Array[a, 100] (* _Amiram Eldar_, Sep 08 2024 *) %o A078314 (PARI) a(n)=bigomega(n*vecprod(factor(n)[,1])+1) \\ _Charles R Greathouse IV_, Jul 09 2013 %o A078314 (Haskell) %o A078314 a078314 = a001222 . a078310 -- _Reinhard Zumkeller_, Jul 23 2013 %Y A078314 Cf. A001222, A007947, A078310, A078313, A078315. %K A078314 nonn %O A078314 1,3 %A A078314 _Reinhard Zumkeller_, Nov 23 2002