login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A167530 The length of the n-th run of identical consecutive values of A166724. 1
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,4

LINKS

Table of n, a(n) for n=1..81.

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

CROSSREFS

Cf. A166724.

Sequence in context: A241856 A278354 A165005 * A205789 A029208 A322592

Adjacent sequences:  A167527 A167528 A167529 * A167531 A167532 A167533

KEYWORD

nonn

AUTHOR

Giovanni Teofilatto, Nov 05 2009

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

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 31 06:58 EDT 2020. Contains 334747 sequences. (Running on oeis4.)