%I #5 Dec 12 2012 18:24:56
%S 1,1,2,1,1,2,1,1,2,1,1,1,4,1,1,1,2,2,1,1,1,1,1,1,1,1,1,1,1,2,1,2,1,1,
%T 3,1,1,2,2,1,1,2,1,1,1,1,1,1,1,1,1,2,1,1,3,2,1,1,1,1,1,2,1,3,4,1,1,1,
%U 2,1,1,1,1,1,1,2,1,1,2,1,3,2,1,1,1,1,1,1,1,2,1,1,1,2,1,1,2,1,1
%N Greatest exponent in prime-power factorization of 2*p(n)-1.
%H Harvey P. Dale, <a href="/A023584/b023584.txt">Table of n, a(n) for n = 1..1000</a>
%t Max[Transpose[FactorInteger[2 #-1]][[2]]]&/@Prime[Range[100]] (* _Harvey P. Dale_, Dec 12 2012 *)
%K nonn
%O 1,3
%A _Clark Kimberling_
|