A167913 - OEIS

%I #10 Jan 20 2019 02:47:26

%S 0,1,2,9,64,25,216,49,4096,6561,10,161051,1728,13,38416,759375,65536,

%T 289,104976,6859,400,4084101,10648,6436343,110075314176,15625,26,729,

%U 784,24389,531441000000000000,961,1048576,33,60716992766464,1225

%N Product of the n-th run of identical consecutive values of A166724.

%p 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

%Y Cf. A166724.

%K nonn

%O 1,3

%A _Giovanni Teofilatto_, Nov 15 2009

%E a(15) corrected and terms beyond a(25) provided by _R. J. Mathar_, Jan 30 2010

%E Name clarified by _Jason Kimberley_, Jul 02 2018