|
%I #12 Jul 27 2023 15:22:18
%S 1,1,16,1296,512,81,10000,2985984,38416,50625,65536,34012224,64000000,
%T 194481,234256,110075314176,625,456976,19683,481890304,19683000000000,
%U 33554432,1185921,1336336,1500625,2821109907456,2085136,2313441,6553600000000,406671383849472
%N A363920 evaluated over the nonprime numbers.
%H Michael De Vlieger, <a href="/A363921/b363921.txt">Table of n, a(n) for n = 0..10000</a>
%p seq(A363920(n), n in remove(isprime, [$0..42]));
%t {1}~Join~Map[#^(PrimeOmega[#]*PrimeNu[#]) &, Select[Range[42], Not@*PrimeQ]] (* _Michael De Vlieger_, Jul 27 2023 *)
%Y Cf. A002808, A141468, A363920.
%K nonn
%O 0,3
%A _Peter Luschny_, Jul 16 2023
|
