%I #16 Aug 21 2023 08:24:45
%S 0,1,2,2,1,2,3,3,2,1,2,3,2,1,2,4,4,3,2,1,2,3,3,2,2,3,2,1,2,4,5,2,1,2,
%T 3,2,1,2,3,4,3,2,1,2,5,3,3,4,4,2,3,4,2,2,3,2,1,2,3,2,1,2,5,6,3,2,1,2,
%U 3,3,3,5,2,1,2,4,4,2,4,2,1,2,4,2,2,4,3,2,1,2,6,3,2,4,3,3,3,5,2,1,2,3,3,5,3
%N Total number of primes (with multiplicity) dividing A064413(n).
%H J. C. Lagarias, E. M. Rains and N. J. A. Sloane, <a href="https://arxiv.org/abs/math/0204011">The EKG sequence</a>, arXiv:math/0204011 [math.NT], 2002.
%H J. C. Lagarias, E. M. Rains and N. J. A. Sloane, <a href="https://projecteuclid.org/euclid.em/1057777433">The EKG sequence</a>, Exper. Math. 11 (2002), 437-446.
%H <a href="/index/Ed#EKG">Index entries for sequences related to EKG sequence</a>
%F a(n) = A001222(A064413(n)). - _Michel Marcus_, Aug 21 2023
%t terms = 105;
%t ekg[s_] := Block[{m = s[[-1]], k = 3}, While[MemberQ[s, k] || GCD[m, k] == 1, k++]; Append[s, k]];
%t EKG = Nest[ekg, {1, 2}, terms-2];
%t PrimeOmega /@ EKG (* _Jean-François Alcover_, Sep 02 2018, after _Robert G. Wilson v_ in A064413 *)
%Y Sum of "digits" of A064743.
%Y Cf. A001222, A064413.
%K nonn
%O 1,3
%A _N. J. A. Sloane_, Oct 18 2001
%E More terms from _Vladeta Jovovic_, Oct 20 2001