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
KEYWORD
nonn
AUTHOR
Leroy Quet, Jan 22 2002
STATUS
approved