|
|
A066911
|
|
Sum of primes < n that do not divide n.
|
|
6
|
|
|
0, 0, 2, 3, 5, 5, 10, 15, 14, 10, 17, 23, 28, 32, 33, 39, 41, 53, 58, 70, 67, 64, 77, 95, 95, 85, 97, 91, 100, 119, 129, 158, 146, 141, 148, 155, 160, 176, 181, 190, 197, 226, 238, 268, 273, 256, 281, 323, 321, 321, 308, 313, 328, 376, 365, 372, 359, 350, 381, 430
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(8) = 3 + 5 + 7 = 15 because 3, 5 and 7 are the primes < 8 that do not divide 8.
|
|
MATHEMATICA
|
Table[Total@ Complement[Prime@ Range@ PrimePi@ n, FactorInteger[n][[All, 1]]], {n, 60}] (* Michael De Vlieger, Sep 04 2017 *)
|
|
PROG
|
(PARI) a(n) = sum(i=1, n-1, if (isprime(i) && (n%i), i)); \\ Michel Marcus, May 20 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|