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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A167913 Product of the n-th run of identical consecutive values of A166724. 1
 0, 1, 2, 9, 64, 25, 216, 49, 4096, 6561, 10, 161051, 1728, 13, 38416, 759375, 65536, 289, 104976, 6859, 400, 4084101, 10648, 6436343, 110075314176, 15625, 26, 729, 784, 24389, 531441000000000000, 961, 1048576, 33, 60716992766464, 1225 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 LINKS 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: A167913 := proc(nmax) ol := 0 ; a := 1; for n from 1 to nmax do if A166724(n) <> ol then printf("%d, ", a) ; a := A166724(n) ; else a := a*A166724(n) ; end if; ol := A166724(n) ; end do ; end proc: A167913(280) : # R. J. Mathar, Jan 30 2010 CROSSREFS Cf. A166724. Sequence in context: A130169 A218672 A253109 * A076944 A074181 A052513 Adjacent sequences:  A167910 A167911 A167912 * A167914 A167915 A167916 KEYWORD nonn AUTHOR Giovanni Teofilatto, Nov 15 2009 EXTENSIONS a(15) corrected and terms beyond a(25) provided by R. J. Mathar, Jan 30 2010 Name clarified by Jason Kimberley, Jul 02 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.

Last modified August 13 19:30 EDT 2020. Contains 336451 sequences. (Running on oeis4.)