A233344 Numbers k that divide the sum of their remainders modulo all smaller composites (=A233131(k)).
1, 2, 3, 4, 23, 53, 374, 613, 225460, 490537, 1748155, 3167982, 9266618, 12543856, 12589961, 27359852, 3418801560, 8824909730, 72988555402
Offset: 1
Programs
-
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,", ")) )
Comments