|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
a(15) corrected and terms beyond a(25) provided by R. J. Mathar, Jan 30 2010
|
|
STATUS
|
approved
|
|
|
|