login
Forward van Eck transform of A000005.
5

%I #22 Oct 14 2021 15:02:35

%S 0,1,2,5,2,2,4,2,16,4,2,6,4,1,6,65,2,2,4,8,1,4,6,6,24,1,6,4,2,10,6,12,

%T 1,1,3,64,4,1,7,2,2,12,4,1,5,5,6,32,72,2,4,11,6,2,2,10,1,4,2,12,6,3,5,

%U 665,4,4,4,7,5,8,2,12,6,3,1,16,5,10,4,32,544,3,6,6,1,1,4,14,8,6,2,6,1,1,11

%N Forward van Eck transform of A000005.

%C Least positive k such that d(n) = d(n+k), or 0 if no such k exists (d = A000005). - _Altug Alkan_, Jul 29 2016

%H Michael De Vlieger, <a href="/A171937/b171937.txt">Table of n, a(n) for n = 1..10001</a>

%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>

%F a(n) = A079427(n) - n. - _Ridouane Oudra_, Sep 14 2021

%t {0}~Join~Array[Block[{k = 1}, While[DivisorSigma[0, #] != DivisorSigma[0, # + k], k++]; k] &, 94, 2] (* _Michael De Vlieger_, Aug 19 2021 *)

%o (PARI) a(n) = if (n==1, 0, my(m=1, nd=numdiv(n)); while(numdiv(n+m) != nd, m++); m); \\ _Michel Marcus_, Sep 14 2021

%Y Cf. A000005, A171936.

%Y Cf. A079427.

%K nonn

%O 1,3

%A _N. J. A. Sloane_, Oct 24 2010