|
%I #10 May 10 2016 00:41:08
%S 1,2,8,12,80,84,144,360,960,1680,1800,2880,4800,6300,15600,18480,
%T 33600,44352,56700,65520,129600,170100,176400,273600,277200,498960,
%U 665280,1146600,1915200,1940400,2494800,4127760,8255520,8482320,13305600,17236800,20638800
%N Where records occur in A054025.
%C The first values of sigma(a(n)) mod d(a(n)) are: 0, 1, 3, 4, 6, 8, 13, 18, 24, 32, 33, 36, 40, 50, 56, 64, 68, 72, 86, 96, 97, 104, 111, 122, 168, 176, 192, 198, 220, 252, 276, 288.
%H Giovanni Resta, <a href="/A272720/b272720.txt">Table of n, a(n) for n = 1..68</a> (terms < 10^12)
%p with(numtheory): P:= proc(q) local a,n; a:=-1; for n from 1 to q do
%p if sigma(n) mod tau(n)>a then a:=sigma(n) mod tau(n); print(n);
%p fi; od; end: P(10^9);
%t Reap[r=-1; n=0; While[++n<10^5, m = Mod @@ DivisorSigma[ {1,0}, n]; If[m > r, r=m; Sow@n ]]][[2, 1]] (* _Giovanni Resta_, May 06 2016 *)
%Y Cf. A000005, A000203, A049642, A054025.
%K nonn
%O 1,2
%A _Paolo P. Lava_, May 05 2016
%E a(33)-a(37) from _Giovanni Resta_, May 06 2016
|
