login
Complement of A002036.
1

%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