A023591 Greatest exponent in prime-power factorization of 2*prime(n)+1.

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, 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, 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

Offset

1,6

Links

Table of n, a(n) for n=1..99.

Maple

A023591 := proc(n)
    A051903(2*ithprime(n)+1) ;
end proc: # R. J. Mathar, Jul 08 2015

Prog

(PARI) a(n) = vecmax(factor(2*prime(n)+1)[, 2]); \\ Michel Marcus, Apr 20 2021

Crossrefs

Cf. A051903, A072055.

Sequence in context: A030348 A143811 A109673 * A165661 A107711 A242345

Adjacent sequences: A023588 A023589 A023590 * A023592 A023593 A023594

Keyword

nonn

Author

Clark Kimberling

Status

approved