%I #7 Mar 30 2012 18:57:17
%S 2,4,5,7,9,11,12,13,15,16,18,20,22,23,26,28,29,30,32,33,34,36,39,42,
%T 43,44,45,46,47,48,49,50,54,55,60,61,64,65,66,70,72,73,74,75,77,78,79,
%U 80,81,83,84,85,87,88,89,90,92,93,94,95,96,97,99,100,101,103,104,105,106,108,109,110,111,112,115,117,118,119,120,121,122,123,124,125,128,129,132,133,134,137,138,139,140,141,142,144,148,149,150,151,152,154,156,157,160,161
%N Numbers m such that prime(m) is of the form floor(k*e/(e-1)); complement of A184855.
%e See A077545.
%t PrimePi[Select[Floor[Range[1000] E/(E-1)], PrimeQ]]
%Y Cf. A077545, A184855.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 23 2011
|