This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A167530 #12 Jan 21 2019 13:03:05
%S A167530 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 A167530 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 A167530 5,8,2,3,4,5,5,3,4,5,8,2,6,8
%N A167530 The length of the n-th run of identical consecutive values of A166724.
%p A167530 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 A167530 Cf. A166724.
%K A167530 nonn
%O A167530 1,4
%A A167530 _Giovanni Teofilatto_, Nov 05 2009
%E A167530 Definition corrected by _Giovanni Teofilatto_, Jan 30 2010
%E A167530 More terms from _R. J. Mathar_, Feb 01 2010
%E A167530 Name clarified by _Jason Kimberley_, Aug 09 2018