|
|
A237877
|
|
Numbers n such that n | A067439(n).
|
|
0
|
|
|
1, 2, 9, 11, 17, 48, 57, 427, 533, 1661, 2161, 4441, 5428, 41628, 171441, 411735, 555716, 1278525, 4292829, 5174373, 8758407, 680133057
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
48 is coprime to 1, 5, 7, 11, 13, 17, 19, 23, 25, 29, 31, 35, 37, 41, 43, 47. When 48 is divided by these numbers the remainders are 0, 3, 6, 4, 9, 14, 10, 2, 23, 19, 17, 13, 11, 7, 5, 1. Their sum is 144 and 144 / 48 = 3.
|
|
MAPLE
|
with(numtheory); P:=proc(q) local i, n, t; for n from 1 to q do t:=0;
for i from 2 to n-1 do if gcd(i, n)=1 then t:=t+(n mod i); fi; od;
if type(t/n, integer) then print(n); fi; od; end: P(10^6);
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|