[go: up one dir, main page]

login
A363921
A363920 evaluated over the nonprime numbers.
1
1, 1, 16, 1296, 512, 81, 10000, 2985984, 38416, 50625, 65536, 34012224, 64000000, 194481, 234256, 110075314176, 625, 456976, 19683, 481890304, 19683000000000, 33554432, 1185921, 1336336, 1500625, 2821109907456, 2085136, 2313441, 6553600000000, 406671383849472
OFFSET
0,3
LINKS
MAPLE
seq(A363920(n), n in remove(isprime, [$0..42]));
MATHEMATICA
{1}~Join~Map[#^(PrimeOmega[#]*PrimeNu[#]) &, Select[Range[42], Not@*PrimeQ]] (* Michael De Vlieger, Jul 27 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Jul 16 2023
STATUS
approved