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!)
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

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

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.

License Agreements, Terms of Use, Privacy Policy. .

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