A074749 - OEIS

%I #10 Feb 03 2020 03:50:01

%S 0,0,0,0,1,0,1,2,4,1,1,3,1,1,4,8,1,1,1,5,4,1,1,9,1,1,1,2,1,8,1,2,1,1,

%T 1,16,1,1,1,6,1,1,1,5,1,1,1,13,1,1,4,1,1,8,1,13,1,1,1,1,1,1,1,40,1,3,

%U 1,1,4,1,1,2,1,1,4,1,1,1,1,4,1,1,1,5,1,1

%N Smallest difference between consecutive anti-divisors of n (ordered by size).

%C See A066272 for definition of anti-divisor.

%e For n=13, anti-divisors={2,3,5,9}; differences={1,2,4}; a(13) = smallest difference = 1.

%t min[s_] := If[Length[s] > 0, Min[s], 0]; min /@ Differences /@ Table[Select[Range[2, n - 1], Abs[Mod[n, #] - #/2] < 1 &], {n, 100}] (* _Amiram Eldar_, Feb 03 2020 after _Harvey P. Dale_ at A066272 *)

%Y Cf. A066272, A130799.

%K nonn

%O 1,8

%A _Jason Earls_, Sep 06 2002

%E More terms from _Amiram Eldar_, Feb 03 2020