STATUS
proposed
approved
proposed
approved
editing
proposed
Michael De Vlieger, <a href="/A066911/b066911.txt">Table of n, a(n) for n = 1..10000</a>
Table[Total@ Complement[Prime@ Range@ PrimePi@ n, FactorInteger[n][[All, 1]]], {n, 60}] (* Michael De Vlieger, Sep 04 2017 *)
approved
editing
proposed
approved
editing
proposed
Equals row sums of triangle A143655. [_- _Gary W. Adamson_, Aug 28 2008]
proposed
editing
editing
proposed
Equals row sums of triangle A143655 . [From __Gary W. Adamson_, Aug 28 2008]
a(prime(n)) = A007504(n-1). - Michel Marcus, May 20 2014
(PARI) a(n) = sum(i=1, n-1, if (isprime(i) && (n%i), i)); \\ Michel Marcus, May 20 2014
A143655 [From Gary W. Adamson, Aug 28 2008]
approved
editing
Leroy Quet , Jan 22 2002
_Leroy Quet _ Jan 22 2002