A023510 Greatest exponent in prime-power factorization of prime(n) + 1.

1, 2, 1, 3, 2, 1, 2, 2, 3, 1, 5, 1, 1, 2, 4, 3, 2, 1, 2, 3, 1, 4, 2, 2, 2, 1, 3, 3, 1, 1, 7, 2, 1, 2, 2, 3, 1, 2, 3, 1, 2, 1, 6, 1, 2, 3, 2, 5, 2, 1, 2, 4, 2, 2, 1, 3, 3, 4, 1, 1, 2, 2, 2, 3, 1, 1, 2, 2, 2, 2, 1, 3, 4, 1, 2, 7, 1, 1, 1, 1, 2, 1, 4, 1, 3, 2, 2, 1, 1, 4, 2, 5, 3, 2, 3, 3, 1, 2, 2

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Comments

If a(n)=1 then prime(a(n)) is a term in A049097. - Zak Seidov, Jul 20 2016

Examples

			For n=5, the fifth prime is 11, and the prime factorization of 11 + 1 = 12 is 2^2*3. This has exponents 2 and 1, so a(5) is the largest of these exponents, 2. - _Michael B. Porter_, Jul 20 2016
		

Links

• Zak Seidov, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A008864, A023509, A049097, A051903.

Programs

Mathematica

Table[Max[#[[2]] & /@ FactorInteger[Prime[k] + 1]], {k, 10000}] (* Zak Seidov, Jul 19 2016 *)

PARI

a(n) = vecmax(factor(prime(n)+1)[,2]) \\ Michel Marcus, Jul 20 2016

Formula

a(n) = A051903(A008864(n)). - Michel Marcus, Jul 20 2016