login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Smallest composite x such that sigma(x) + 2n = sigma(x + 2n).
12

%I #23 Oct 26 2022 23:35:33

%S 434,305635357,104,27,195556,65,12,39,20,56,916,80,212282,57,44,

%T 106645,52,125

%N Smallest composite x such that sigma(x) + 2n = sigma(x + 2n).

%C a(19) > 4293000000, if it exists. - _Jud McCranie_, May 25 2000

%C a(19) > 10^11, if it exists. - _Charles R Greathouse IV_, Oct 26 2022

%H Mauro Fiorentini, <a href="http://www.bitman.name/math/table/253">Le soluzioni dell’equazione s(n + k) = s(n) + k, con n composto fino a 109 e k sino a 1000</a>.

%e a(5) corresponds to n=3+2=5, d=2n=10 and the smallest composite integer is 195556. The next solution is 1152136225.

%o (PARI) a(n)=forcomposite(x=3,10^66,if(sigma(x)+2*n==sigma(x+2*n),return(x)));

%o for(n=1,66,print1(a(n),", ")); \\ _Joerg Arndt_, Nov 15 2014

%o (PARI) a19(lim,startAt=39)=startAt=ceil(startAt); my(v=vectorsmall(38),i=(startAt-1)%38); forfactored(n=startAt,lim\1+38, my(t=sigma(n)); if(i++>38,i=1); if(t==v[i]+38, return(n[1]-38)); v[i]=if(vecsum(n[2][,2])>1,t,0)) \\ _Charles R Greathouse IV_, Oct 25 2022

%Y Cf. A015913, A015914, A015915, A015916, A015917, A054799.

%Y Cf. A023200, A023201, A023202, A023203,

%K nonn,more

%O 1,1

%A _Labos Elemer_ May 23 2000

%E Description corrected by _Jud McCranie_, May 25 2000