|
%I #14 May 28 2024 10:27:02
%S 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 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 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 Maximal exponent in prime factorization of (prime(n)+1)*(prime(n+1)+1)/4.
%C a(n)=A051903(A079079(n)).
%H Reinhard Zumkeller, <a href="/A079087/b079087.txt">Table of n, a(n) for n = 1..10000</a>
%t With[{pms=Times@@#/4&/@Partition[Prime[Range[110]]+1,2,1]}, Max[ Transpose[ FactorInteger[#]][[2]]]&/@pms] (* _Harvey P. Dale_, Nov 10 2011 *)
%o (Haskell)
%o a079087 = a051903 . a079079 -- _Reinhard Zumkeller_, Oct 08 2012
%Y Cf. A079085.
%K nonn,nice
%O 1,3
%A _Reinhard Zumkeller_, Dec 22 2002
|
