|
%I #23 Nov 16 2023 08:43:36
%S 256,1296,4096,6561,10000,38416,46656,50625,194481,234256,262144,
%T 390625,456976,531441,1000000,1048576,1185921,1336336,1500625,2085136,
%U 2313441,4477456,5764801,6765201,7529536,9150625,10077696,10556001,11316496,11390625,14776336
%N Semiprimes to semiprime powers.
%C This is the semiprime analog of A053810.
%H Charles R Greathouse IV, <a href="/A113877/b113877.txt">Table of n, a(n) for n = 1..10000</a>
%F {a(n)} = {a^b where a and b are elements of A001358}.
%F {a(n)} = {(p*q)^(r*s) = (p^(r*s))*(q^r*s) for distinct primes p, q, r, s} UNION {(p*q)^(p*r) = (p^(p*r))*(q^(p*r)) for distinct primes p, q, r} UNION {(p*q)^(r*r) = (p^(r^2))*(q^(r^2)) for distinct primes p, q, r} UNION {(p*q)^(p*q)= (p^(p*q))*(q^(p*q)) for distinct primes p, q} UNION {(p^2)^(p^2) = p^(2*(p^2)) for prime p}.
%F a(n) ~ (n log n/log log n)^4. - _Charles R Greathouse IV_, Jun 05 2013
%e a(1) = 256 = 4^4 = semiprime(1)^semiprime(1).
%e a(2) = 1296 = 6^4 = semiprime(2)^semiprime(1).
%e a(3) = 4096 = 4^6 = semiprime(1)^semiprime(2).
%e a(4) = 6561 = 9^4 = semiprime(3)^semiprime(1).
%e a(5) = 10000 = 10^4.
%t lim = 10^8; s = Select[Range[lim^(1/4)], Total[Transpose[FactorInteger[#]][[2]]] == 2 &]; t = {}; j = 1; While[b = s[[j]]; i = 1; While[a = s[[i]]; e = a^b; If[e <= lim, AppendTo[t, e]]; e < lim && i < Length[s], i++]; i > 1, j++]; t = Union[t] (* _T. D. Noe_, Jun 05 2013 *)
%o (PARI) is(n)=my(b,e=ispower(n,,&b),o); if(e==0,return(0)); o=bigomega(e); (o==2 && bigomega(b)==2) || (e%2==0 && o==3 && isprime(b)) \\ _Charles R Greathouse IV_, Jun 05 2013
%o (PARI) list(lim)=my(v=List());for(e=4,log(lim\=1+.5)\log(4), if(bigomega(e)!=2, next); for(b=4,(lim+.5)^(1/e), if(bigomega(b)==2, listput(v,b^e)))); vecsort(Vec(v)) \\ _Charles R Greathouse IV_, Jun 05 2013
%Y Cf. A001358, A113854, A053810.
%K easy,nonn
%O 1,1
%A _Jonathan Vos Post_, Jan 27 2006
%E Terms corrected by _Charles R Greathouse IV_, Jun 05 2013
|
