|
%I #10 Oct 02 2014 05:03:01
%S 1,20,3,6,1,4,200,299,5,29,4,119,5,61,3,3,6,64,31,2,21,35,6,2974,17,
%T 1052,27,109,10,4,3,50,65,177,22,29,5,25,15,29,29,584,83,163,9,152,19,
%U 19,29,32,15,35,4,25,239,1122,185,76,35,97
%N Least positive integer m such that m + n divides D(m) + D(n), where D(.) is given by A001850.
%C Conjecture: a(n) exists for any n > 0.
%H Zhi-Wei Sun, <a href="/A248136/b248136.txt">Table of n, a(n) for n = 1..10000</a>
%e a(2) = 20 since 2 + 20 = 22 divides D(2) + D(20) = 13 + 260543813797441 = 260543813797454 = 22*11842900627157.
%t d[n_]:=Sum[Binomial[n,k]Binomial[n+k,k],{k,0,n}]
%t Do[m=1;Label[aa];If[Mod[d[m]+d[n],m+n]==0,Print[n," ",m];Goto[bb]];m=m+1;Goto[aa];Label[bb];Continue,{n,1,60}]
%Y Cf. A001850, A247824, A247937, A247940, A248124, A248125, A248133, A248137, A248139, A248142.
%K nonn
%O 1,2
%A _Zhi-Wei Sun_, Oct 02 2014
|
