OFFSET
1,2
LINKS
Diana Mecum, Table of n, a(n) for n = 1..1000
EXAMPLE
For n = 5, the smallest prime dividing 1*5=5 is 5. The smallest prime dividing 2*5=10 is 2. The smallest prime dividing 3*5=15 is 3. The smallest prime dividing 4*5=20 is 2. And the smallest prime dividing 5*5=25 is 5. So a(5) = 5+2+3+2+5 = 17.
MATHEMATICA
Table[sum=0; Do[sum=sum+Min[Divisors[k*n][[2]], Divisors[n][[2]]], {k, 1, n}];
sum, {n, 2, 1000}]; (* then manually add in a(0) term *) (* Diana L. Mecum, Jan 02 2009 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jul 05 2008
EXTENSIONS
a(10)-a(63) from Diana L. Mecum, Jan 02 2009
STATUS
approved