%I #8 Apr 20 2021 22:42:34
%S 1,1,1,1,1,3,1,1,1,1,2,2,1,1,1,1,1,1,3,1,2,1,1,1,1,1,2,1,1,1,1,1,2,2,
%T 1,1,2,1,1,1,1,2,1,2,1,1,2,1,1,3,1,1,1,1,1,1,2,1,1,1,4,1,1,1,1,1,1,3,
%U 1,1,1,1,2,2,1,1,1,1,1,2,1,1,1,2,1,1,1,1,1,2,1,1,2,1,3,1,1,1,1
%N Greatest exponent in prime-power factorization of 2*prime(n)+1.
%p A023591 := proc(n)
%p A051903(2*ithprime(n)+1) ;
%p end proc: # _R. J. Mathar_, Jul 08 2015
%o (PARI) a(n) = vecmax(factor(2*prime(n)+1)[,2]); \\ _Michel Marcus_, Apr 20 2021
%Y Cf. A051903, A072055.
%K nonn
%O 1,6
%A _Clark Kimberling_
|