OFFSET
1,3
COMMENTS
Subsequence of A101203. - Michel Marcus, Sep 28 2013
EXAMPLE
For p=7 we get 1+4+6=11.
MATHEMATICA
nn=200; With[{np=Complement[Range[nn], Prime[Range[PrimePi[nn]]]]}, Table[ Total[Select[np, #<p&]], {p, Prime[Range[PrimePi[nn]]]}]] (* Harvey P. Dale, Jun 25 2013 *)
PROG
(PARI) a(n) = {my(p = prime(n)); sum (i=1, p-1, i*(! isprime(i))); } \\ Michel Marcus, Sep 28 2013
(PARI) a(n)=my(p=prime(n), s=1); forcomposite(k=4, p, s+=k); k \\ Charles R Greathouse IV, Sep 28 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Corrected and extended by Erich Friedman.
STATUS
approved