OFFSET
0,3
LINKS
Michael De Vlieger, Table of n, a(n) for n = 0..10000
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