%I #12 Jan 21 2019 13:03:05

%S 1,1,1,2,3,2,3,2,4,4,1,5,3,1,4,5,4,2,4,3,2,5,3,5,8,3,1,2,2,3,12,2,4,1,

%T 9,2,4,6,3,4,5,2,5,1,2,2,12,11,3,2,1,5,1,7,4,5,5,2,5,4,1,6,12,3,2,4,9,

%U 5,8,2,3,4,5,5,3,4,5,8,2,6,8

%N The length of the n-th run of identical consecutive values of A166724.

%p A166546 := proc(n) option remember; local a; if n = 1 then 1; else for a from procname(n-1)+1 do if isprime(1+numtheory[tau](a)) then return a; end if; end do ; end if; end proc: A166724 := proc(n) numtheory[pi](A166546(n)) ; end proc: A166724 := proc(n) option remember ; numtheory[pi](A166546(n)) ; end proc: A167530 := proc(nmax) ol := 0 ; ct := 1 ; for n from 2 to nmax do if A166724(n) <> ol then printf("%d,",ct) ; ct := 1 ; else ct := ct+1 ; end if; ol := A166724(n) ; end do ; return ; end proc: A167530(400) ; # _R. J. Mathar_, Feb 01 2010

%Y Cf. A166724.

%K nonn

%O 1,4

%A _Giovanni Teofilatto_, Nov 05 2009

%E Definition corrected by _Giovanni Teofilatto_, Jan 30 2010

%E More terms from _R. J. Mathar_, Feb 01 2010

%E Name clarified by _Jason Kimberley_, Aug 09 2018