A064772 Sum of primes dividing n^n+1 (with repetition).

2, 5, 11, 257, 526, 147, 1030, 1027, 530793, 31603, 58685, 2228292, 113060, 180326, 163123, 67280421584898, 45957792327018709129, 33414185, 870543318650, 4406613081350403, 22864393425065, 82812579069940, 1576297793, 27266016518

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

Cf. A014566, A001414.

Sequence in context: A098438 A225955 A236073 * A107989 A069504 A158997

Adjacent sequences: A064769 A064770 A064771 * A064773 A064774 A064775

Keyword

nonn

Author

Jason Earls, Oct 19 2001

Status

approved