OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..61
MATHEMATICA
Table[Total[Times@@@FactorInteger[n^n+1]], {n, 25}] (* Harvey P. Dale, Sep 17 2011 *)
PROG
(PARI) sopfr(n)= { local(f, s=0); f=factor(n); for(i=1, matsize(f)[1], s+=f[i, 1]*f[i, 2]); return(s) } { for (n=1, 61, write("b064772.txt", n, " ", sopfr(n^n + 1)) ) } \\ Harry J. Smith, Sep 24 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Oct 19 2001
STATUS
approved