|
%I #23 Sep 27 2015 02:40:36
%S 4,16,22,34,108,121,187,232,289,300,372,2230,4322,8882,23771,36737,
%T 48851,50946,67650,75497,424689,482998,581765,4669921,7374225,9597001,
%U 19722481,110714642,416101557,1478286411,1773582750
%N Composite numbers n such that n | A072514 (n).
%C a(24) > 3000000. - _Giovanni Resta_, Feb 17 2014
%C a(32) > 4 * 10^9. - _Hiroaki Yamanouchi_, Oct 01 2014
%e The unrelated numbers to 16 are 6, 10, 12 and 14.
%e The remainders when 16 is divided by these numbers are 4, 6, 4, 2.
%e Their sum is 16 and 16 / 16 = 1.
%p P:=proc(q) local i,n,t; for n from 2 to q do if not isprime(n) then t:=0;
%p for i from 1 to n-1 do if not gcd(i,n)=1 then if not type(n/i,integer) then t:=t+(n mod i); fi; fi; od;
%p if type(t/n,integer) then print(n); fi; fi; od; end: P(10^6);
%Y Cf. A072514.
%K nonn,more
%O 1,1
%A _Paolo P. Lava_, Feb 14 2014
%E a(16)-a(23) from _Giovanni Resta_, Feb 17 2014
%E a(24)-a(28) from _Hiroaki Yamanouchi_, Oct 01 2014
%E a(29)-a(31) from _Hiroaki Yamanouchi_, Sep 27 2015
|
