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 A079087 #18 Sep 09 2024 02:41:07
%S A079087 1,1,2,3,1,2,2,3,2,4,4,1,1,4,4,4,1,1,3,2,3,4,3,2,2,2,3,3,1,6,7,2,1,3,
%T A079087 2,2,1,3,2,3,2,5,5,2,2,3,5,5,1,2,3,3,2,3,2,4,3,3,1,1,2,3,3,2,1,1,2,2,
%U A079087 2,2,3,5,3,1,7,6,1,1,1,2,1,3,3,2,3,3,2,1,3,4,5,6,3,3,3,3,3,2,1,1,2,3,2,1,2
%N A079087 Maximum exponent in prime factorization of (prime(n)+1)*(prime(n+1)+1)/4.
%H A079087 Reinhard Zumkeller, <a href="/A079087/b079087.txt">Table of n, a(n) for n = 1..10000</a>
%F A079087 a(n) = A051903(A079079(n)).
%t A079087 With[{pms=Times@@#/4&/@Partition[Prime[Range[110]]+1,2,1]}, Max[ Transpose[ FactorInteger[#]][[2]]]&/@pms] (* _Harvey P. Dale_, Nov 10 2011 *)
%o A079087 (Haskell)
%o A079087 a079087 = a051903 . a079079 -- _Reinhard Zumkeller_, Oct 08 2012
%o A079087 (PARI) a(n) = vecmax(factor((prime(n)+1)*(prime(n+1)+1)/4)[,2]); \\ _Amiram Eldar_, Sep 08 2024
%Y A079087 Cf. A051903, A079079, A079085.
%K A079087 nonn,nice
%O A079087 1,3
%A A079087 _Reinhard Zumkeller_, Dec 22 2002