|
%I #14 Jul 23 2015 16:17:41
%S 378624,661152,5479092,5526024,7179624,18744216,122321970,168201288,
%T 215676636,778701984,1482154170,1788138780,1974360132,2288979096,
%U 3361923780,4214315484,4757106144,4971510492,6264306144,6884356716,10730488296,11375549304,16851779736
%N Numbers n such that sigma(n) = sigma(n+1) + sigma(n+2).
%H Giovanni Resta, <a href="/A226361/b226361.txt">Table of n, a(n) for n = 1..88</a> (terms < 10^13)
%t nn = 10^7; t = {}; sig0 = 1; sig1 = 3; Do[sig2 = DivisorSigma[1, n + 2]; If[sig0 == sig1 + sig2, AppendTo[t, n]]; sig0 = sig1; sig1 = sig2, {n, nn}]; t (* _T. D. Noe_, Jun 05 2013 *)
%Y Cf. A000203, A055574, A065900, A073500, A099632.
%K nonn
%O 1,1
%A _Alex Ratushnyak_, Jun 05 2013
%E a(17)-a(23) from _Donovan Johnson_, Jun 05 2013
|
