A023513 a(n) = sum of distinct prime divisors of prime(n) + 1.

3, 2, 5, 2, 5, 9, 5, 7, 5, 10, 2, 21, 12, 13, 5, 5, 10, 33, 19, 5, 39, 7, 12, 10, 9, 22, 15, 5, 18, 24, 2, 16, 28, 14, 10, 21, 81, 43, 12, 34, 10, 22, 5, 99, 16, 7, 55, 9, 24, 30, 18, 10, 13, 12, 48, 16, 10, 19, 141, 52, 73, 12, 20, 18, 159, 58, 85, 15, 34, 14, 64, 10

Offset

1,1

Comments

a(n) = A008472(A008864(n)). - Reinhard Zumkeller, Mar 12 2010

Links

R. Zumkeller, Table of n, a(n) for n = 1..10000

Mathematica

Array[Plus@@First/@FactorInteger[Prime[ # ]+1]&, 5! ] (* Vladimir Joseph Stephan Orlovsky, Feb 28 2010 *)

Crossrefs

Sequence in context: A154421 A057034 A075410 * A069735 A358536 A274457

Adjacent sequences: A023510 A023511 A023512 * A023514 A023515 A023516

Keyword

nonn

Author

Clark Kimberling

Status

approved