|
%I #8 Jul 17 2019 07:51:44
%S 12,30,42,45,56,66,112,220,261,282,294,297,308,342,364,390,416,477,
%T 492,513,516,532,536,555,567,572,580,620,621,632,651,700,705,768,777,
%U 786,795,812,832,836,860,880,884,891,897,906,957,975,976,981,992,1000,1005
%N A positive integer k is included if d(k) = d(k+1) + d(k+2), where d(k) is the number of divisors of k.
%H Amiram Eldar, <a href="/A145470/b145470.txt">Table of n, a(n) for n = 1..10000</a>
%t Transpose[Select[Partition[Range[1010], 3, 1], DivisorSigma[0, First[#]] == DivisorSigma[0, Last[#]] + DivisorSigma[0, #[[2]]]&]][[1]] (* _Amiram Eldar_, Jul 17 2019 after _Harvey P. Dale_ at A175116 *)
%Y Cf. A000005, A145469, A175116.
%K nonn
%O 1,1
%A _Leroy Quet_, Oct 11 2008
%E Extended by _Ray Chandler_, Oct 27 2008
|
