OFFSET
1,2
LINKS
Harry J. Smith, Table of n, a(n) for n=1..1000
FORMULA
A007318(n,k) <= a(n). - Reinhard Zumkeller, Mar 04 2008
MATHEMATICA
Times@@(Divisors[#]^2)&/@Range[40] (* Harvey P. Dale, Jan 14 2011 *)
a[n_] := n^DivisorSigma[0, n]; Array[a, 40] (* Amiram Eldar, Jun 11 2022 *)
PROG
(PARI) { for (n=1, 1000, write("b062758.txt", n, " ", n^numdiv(n)) ) } \\ Harry J. Smith, Aug 10 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 16 2001
STATUS
approved