%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_