1,1

T. D. Noe, Table of n, a(n) for n = 1..10000

a(n) = A006530(A008864(n)). - R. J. Mathar, Feb 06 2019

Table[FactorInteger[Prime[n] + 1][[-1, 1]], {n, 100}]

(PARI) A023509(n) = {local(f); f=factor(prime(n)+1); f[matsize(f)[1], 1]} \\ Michael B. Porter, Feb 02 2010

Sequence in context: A018837 A097618 A039639 * A115041 A039641 A198729

Adjacent sequences: A023506 A023507 A023508 * A023510 A023511 A023512

nonn

Clark Kimberling

approved