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