OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
31^PrimeOmega[Range[100]] (* G. C. Greubel, Apr 13 2016 *)
PROG
(PARI) a(n) = 31^bigomega(n); \\ Michel Marcus, Apr 14 2016
(Magma) [n eq 1 select 1 else 31^(&+[p[2]: p in Factorization(n)]): n in [1..100]]; // Vincenzo Librandi, Apr 14 2016
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Jaroslav Krizek, Sep 28 2009
STATUS
approved