login
A363920 evaluated over the nonprime numbers.
1

%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