|
%I #12 Feb 26 2019 01:40:07
%S 8,16,32,64,81,128,243,256,512,729,1024,2048,2187,4096,6561,8192,
%T 15625,16384,19683,32768,59049,65536,78125,131072,177147,262144,
%U 390625,524288,531441,1048576,1594323,1953125,2097152,4194304,4782969,5764801,8388608,9765625,14348907
%N Prime powers p^e with p < e.
%C Complement to A074583 with respect to A000961;
%C a(n) = A000961(A192187(n)); A095874(a(n)) = A192187(n).
%H Donovan Johnson, <a href="/A192135/b192135.txt">Table of n, a(n) for n = 1..10000</a>
%p A192135 := proc(nmax) local s ,i,p,e ; s := {} ; for i from 1 do p := ithprime(i) ; if p^(p+1) > nmax then break; end if; for e from p+1 do if p^e > nmax then break; end if; s := s union {p^e} ; end do: end do: sort(s) ; end proc:
%p A192135(20000000) ; # _R. J. Mathar_, Jul 09 2011
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Jun 26 2011
|
