%I #10 May 05 2021 17:05:53
%S 5,5,2,7,9,2,7,13,15,2,19,7,13,25,7,9,33,2,14,39,21,43,45,25,7,15,55,
%T 18,9,31,20,69,14,73,21,20,7,85,24,13,22,25,99,9,7,103,109,115,30,31,
%U 61,13,63,129,20,28,19,139,14,73,26,39,38,159,81,7,169,24,14
%N Sum of distinct prime divisors of prime(n)+3.
%F a(n) = A008472(A113935(n)). - _Michel Marcus_, May 05 2021
%t Total[First/@FactorInteger[#]]&/@(Prime@Range@100+3) (* _Giorgos Kalogeropoulos_, May 05 2021 *)
%o (Python)
%o from sympy import primefactors, prime
%o def a(n): return sum(primefactors(prime(n) + 3))
%o print([a(n) for n in range(1, 70)]) # _Michael S. Branicky_, May 05 2021
%Y Cf. A008472, A113935.
%K nonn
%O 1,1
%A _Clark Kimberling_