|
%I #2 Mar 30 2012 17:30:44
%S 1,2,8,25,29,40,51,53,56,77,85,97,117,120,124,132,140,145,148,154,162,
%T 170,177,178,183,186,187,188,192,195,201,207,216,222,223,226,227,229,
%U 236,242,245,251,254,256,259,267,275,277,280,282,284,285,289,299,300
%N Complement of A002036.
%t Complement[ Table[n, {n, 1, 350}], Union[ Table[ Round[ Prime[n] / Log[ Prime[n]]], {n, 1, 500}]]]
%Y Cf. A002036.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, May 16 2002
|
