A066911 Sum of primes < n that do not divide n.

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

Offset

1,3

Comments

Equals row sums of triangle A143655. - Gary W. Adamson, Aug 28 2008

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Formula

a(prime(n)) = A007504(n-1). - Michel Marcus, May 20 2014

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

Cf. A007504, A143655.

Sequence in context: A088887 A368085 A265546 * A326229 A326187 A071850

Adjacent sequences: A066908 A066909 A066910 * A066912 A066913 A066914

Keyword

nonn

Author

Leroy Quet, Jan 22 2002

Status

approved