login
a(n) = sum of distinct prime divisors of prime(n) - 1.
0

%I #11 Feb 06 2019 07:48:34

%S 0,2,2,5,7,5,2,5,13,9,10,5,7,12,25,15,31,10,16,14,5,18,43,13,5,7,22,

%T 55,5,9,12,20,19,28,39,10,18,5,85,45,91,10,26,5,9,16,17,42,115,24,31,

%U 26,10,7,2,133,69,10,28,14,52,75,22,38,18,81,21,12,175,34,13,181

%N a(n) = sum of distinct prime divisors of prime(n) - 1.

%F a(n) = A008472(A006093(n)). - _R. J. Mathar_, Feb 06 2019

%t Array[Plus@@First/@FactorInteger[Prime[ # ]-1]&,5! ] (* _Vladimir Joseph Stephan Orlovsky_, Feb 28 2010 *)

%K nonn

%O 1,2

%A _Clark Kimberling_