|
%I #8 Aug 29 2020 06:59:11
%S 5,7,11,13,17,19,21,22,23,25,26,27,29,31,33,34,35,37,38,39,41,43,44,
%T 45,46,47,49,50,51,52,53,55,57,58,59,61,62,63,64,65,66,67,68,69,70,71,
%U 73,74,75,76,77,78,79,81,82
%N Numbers k such that k > d(k)^2, where d(k) is the number of divisors of k.
%H Amiram Eldar, <a href="/A035035/b035035.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = n + 54 for n >= 1207. - _Amiram Eldar_, Aug 29 2020
%t Select[Range[100], DivisorSigma[0, #]^2 < # &] (* _Amiram Eldar_, Aug 29 2020 *)
%Y Complement of A035033.
%Y Cf. A000005, A034884, A035034.
%K nonn
%O 1,1
%A _N. J. A. Sloane_.
|
