%I #14 Apr 24 2022 02:29:57
%S 5,7,11,25,33,34,35,38,39,46,51,55,57,58,62,65,81,207,212,236,242,243,
%T 244,245,261,268,275,279,284,292,316,325,332,333,338,356,363,369,387,
%U 388,404,412,423,425,428,436,729,1065,1066,1070,1074,1085,1086,1090
%N Numbers k such that the number of divisors of k is floor(prime(k)/k).
%H Amiram Eldar, <a href="/A067289/b067289.txt">Table of n, a(n) for n = 1..10000</a>
%F Numbers k such that A000005(k) = floor(prime(k)/k).
%t Select[Range[1000], DivisorSigma[0, #] == Floor[Prime[#]/#] &] (* _Amiram Eldar_, Apr 23 2022 *)
%Y Cf. A000005, A038605.
%K nonn
%O 1,1
%A _Benoit Cloitre_, Feb 24 2002
|