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 A079085 #13 Apr 26 2017 02:48:42 %S A079085 1,2,2,2,3,2,3,3,3,3,2,3,4,3,2,3,4,3,3,3,3,4,4,3,3,4,3,4,4,3,3,4,5,4, %T A079085 4,3,3,4,4,4,5,4,3,3,4,3,3,4,5,4,4,4,4,4,4,4,4,3,3,4,4,4,5,4,3,4,3,4, %U A079085 5,4,4,4,4,5,4,4,4,3,4,5,5,3,4,5,5,4,3,4,5,4,4,4,4,4,4,5,4,4,3,3,4,4,5,6,4 %N A079085 Number of distinct prime factors of (prime(n)+1)*(prime(n+1)+1)/4. %H A079085 Reinhard Zumkeller, <a href="/A079085/b079085.txt">Table of n, a(n) for n = 1..10000</a> %F A079085 a(n) = A001221(A079079(n)). %t A079085 Table[PrimeNu[(Prime[n] + 1)*(Prime[n + 1] + 1)/4], {n, 1, 50}] (* _G. C. Greubel_, Apr 25 2017 *) %o A079085 (Haskell) %o A079085 a079085 = a001221 . a079079 -- _Reinhard Zumkeller_, Oct 08 2012 %o A079085 (PARI) for(n=1,50, print1(omega((prime(n) + 1)*(prime(n + 1) + 1)/4), ", ")) \\ _G. C. Greubel_, Apr 25 2017 %Y A079085 Cf. A079086. %K A079085 nonn %O A079085 1,2 %A A079085 _Reinhard Zumkeller_, Dec 22 2002