login
Composite numbers n such that n | A072514 (n).
0

%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