%I#6 2013年5月3日14:26:16

%S 4,6,8,9,12,15,18,21,24,25,30,35,40,45,49,56,63,70,77,84,91,98105，

%电话：112119121132143154165169182195208221234247260273286，

%电话：28930632334035736138039941843745647549451352955257598

%N可被最大素数整除的数字N，A007917（A000196（N））。

%C包括素数的平方（A001248；正好是定义中有“=”的情况）和连续素数对的乘积（A006094）作为子序列。

%t选择[Range[4599]，IntegerQ[#/Prime[PrimePi[Sqrt[#]]]&]（*_Jayanta Basu_，2013年5月3日*）

%o（PARI），用于（n=4999，n%precprime（sqrtint（n））|print1（n“，”））

%K nonn公司

%O 1,1号机组

%A _M.F.Hasler，2009年3月9日