|
|
A063483
|
|
S[A002808(n)] where S[] is Boris Stechkin's function (A055004) and A002808(n) are the composites.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|