|
|
A233344
|
|
Numbers k that divide the sum of their remainders modulo all smaller composites (=A233131(k)).
|
|
2
|
|
|
1, 2, 3, 4, 23, 53, 374, 613, 225460, 490537, 1748155, 3167982, 9266618, 12543856, 12589961, 27359852, 3418801560, 8824909730, 72988555402
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
The prime terms are given by A143853.
|
|
LINKS
|
|
|
PROG
|
(PARI) s=0; pp=0; for(n=2, 10^8, p=factor(n)[, 1]; s += (n-2) - pp - sigma(n) + sum(i=1, #p, p[i]) + if(!ispseudoprime(n), n, pp++; 0) + 1; if(s%n==0, print1(n, ", ")) )
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|