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,3

Links

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

Prog

(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

Crossrefs

Cf. A002808, A055004.

Sequence in context: A119496 A044153 A044534 * A320555 A347478 A082825

Adjacent sequences: A063480 A063481 A063482 * A063484 A063485 A063486

Keyword

nonn

Author

Jason Earls, Jul 28 2001

Status

approved