|
%I #13 Apr 03 2024 05:04:54
%S 40,54,102,138,222,364,366,474,532,642,834,1036,1146,1372,1504,1876,
%T 1986,2994,3052,3556,4396,4564,5514,5572,5622,6198,6412,6522,7026,
%U 7912,7924,8202,8596,8706,9424,9714,10444,10722,11226,11406,12066,12964
%N Lesser of twin admirable numbers: k such that k and k+2 are both admirable numbers.
%C Conjecture: Sequence is infinite.
%H Amiram Eldar, <a href="/A109730/b109730.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[13000], MemberQ[Most[Divisors[#]], (DivisorSigma[1,#]-2*#)/2] && MemberQ[Most[Divisors[#+2]], (DivisorSigma[1,#+2]-2*(#+2))/2]&] (* _James C. McMahon_, Mar 29 2024 *)
%Y Cf. A111592.
%K nonn
%O 1,1
%A _Jason Earls_, Aug 09 2005
|
