%I #9 Jul 11 2019 11:13:33
%S 2,3,5,7,9,11,13,15,17,19,23,25,29,31,35,37,41,43,47,49,53,59,61,67,
%T 71,73,77,79,83,89,91,97,101,103,107,109,113,121,127,131,137,139,143,
%U 149,151,157,163,167,169,173,179,181,187,191,193,197,199,209,211,221,223
%N Numbers k such that A082647(k) = A000005(k) - 1.
%H Amiram Eldar, <a href="/A082664/b082664.txt">Table of n, a(n) for n = 1..10000</a>
%t aQ[n_] := DivisorSum[n, 1 &, EvenQ[#] || # >= Sqrt[2n] &] == 1; Select[Range[250], aQ] (* _Amiram Eldar_, Jul 11 2019 *)
%Y Cf. A000005, A082647.
%K easy,nonn
%O 1,1
%A _Naohiro Nomoto_, May 18 2003
|