A063483 S[A002808(n)] where S[] is Boris Stechkin's function (A055004) and A002808(n) are the composites.

0, 0, 15, 64, 171, 252, 359, 656, 1079, 1346, 1656, 2415, 3373, 3927, 4550, 5993, 6793, 7690, 8653, 9697, 12028, 14695, 16158, 17731, 19398, 21174, 25017, 27108, 29318, 34077, 39324, 42128, 45071, 51398, 54716, 58239, 61877, 65685, 73758

Offset: 0

Author

Jason Earls, Jul 28 2001

Keywords

• nonn

Links

• Harry J. Smith, Table of n, a(n) for n=0,...,1000

Crossrefs

Cf. A002808, A055004.

Programs

PARI

S(n)=sum(k=2,n,(k-1)*floor(n*(k-1)/k)); j=[]; for(n=0,80, if(isprime(n), n+1,j=concat(j,S(n)))); j

PARI

{ n=-1; for (m=0, 10^9, if (!isprime(m), a=sum(k=2, m, (k - 1)*floor(m*(k - 1)/k)); write("b063483.txt", n++, " ", a); if (n==1000, break)) ) } \\ Harry J. Smith, Aug 23 2009