%I #19 Oct 27 2023 22:00:45
%S 4,8,8,8,8,8,16,16,16,8,16,16,16,16,16,16,16,16,32,16,16,16,16,32,16,
%T 16,16,24,16,16,16,32,32,32,16,16,32,16,32,16,16,32,32,16,32,16,16,16,
%U 16,16,32,32,16,32,16,16,64,32,16,32,16,32,16,64,32,32,16,32,32,32,32
%N Number of divisors of k and k+1 which have the same number and sum of divisors.
%H Amiram Eldar, <a href="/A054006/b054006.txt">Table of n, a(n) for n = 1..1831</a> (calculated using the b-file at A054004)
%F a(n) = tau(A054004(n)).
%e See example in A054004.
%t Select[Partition[Array[DivisorSigma[{0, 1}, #] &, 10^6], 2, 1], SameQ @@ # &][[All, 1, 1]] (* _Michael De Vlieger_, Nov 21 2019 *)
%Y Cf. A000005, A000203, A002961, A005237, A053249, A054004, A054005, A054007.
%K nonn
%O 1,1
%A _Asher Auel_, Jan 12 2000
%E More terms from _Jud McCranie_, Oct 15 2000