A167530 The length of the n-th run of identical consecutive values of A166724.
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, 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, 5, 8, 2, 3, 4, 5, 5, 3, 4, 5, 8, 2, 6, 8
Offset: 1
Keywords
Crossrefs
Cf. A166724.
Programs
-
Maple
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
Extensions
Definition corrected by Giovanni Teofilatto, Jan 30 2010
More terms from R. J. Mathar, Feb 01 2010
Name clarified by Jason Kimberley, Aug 09 2018