login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
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
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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 14:02 EDT 2024. Contains 371254 sequences. (Running on oeis4.)