A023594 a(n) = sum of distinct prime divisors of 2*prime(n)+1.

5, 7, 11, 8, 23, 3, 12, 16, 47, 59, 10, 8, 83, 32, 24, 107, 24, 44, 8, 24, 10, 56, 167, 179, 21, 36, 26, 48, 76, 227, 25, 263, 16, 34, 36, 104, 15, 112, 72, 347, 359, 14, 383, 46, 84, 29, 50, 152, 25, 20, 467, 479, 33, 503, 108, 48, 18, 184, 45, 563, 10

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Sequence in context: A167372 A023590 A096919 * A357099 A277777 A254930

Adjacent sequences: A023591 A023592 A023593 * A023595 A023596 A023597

Keyword

nonn

Author

Clark Kimberling

Status

approved