%I#24 2020年8月12日21:10:05

%S 4,9,12,18,20,25,28,36,44,45,49,50,52,60,63,68,72,75,76,84,90,92,98，

%电话：99100108116117121124126132140144147148150153156164，

%电话169171172175180188196198200204207212220225228234236242

%N可以被素数的平方整除。

%C至少有一个素因子指数正好为2的数字。

%C有时被称为平方整数，尽管这个术语通常是为A001694保留的。-_N.J.A.斯隆，2012年7月22日

%C该序列的渐近密度为1-A330596=0.2514647…-Amiram Eldar_，2020年8月12日

%H R.J.Mathar，n表，n=1..1247的a（n）</a>

%e20=5*2*2可以被2^2整除。

%p是A038109:=进程（n）

%p局部p；

%ifactors（n）[2]中p的p

%p如果op（2，p）=2，则

%p返回true；

%p end if；

%p端do：

%p假；

%结束程序：#R.J.Mathar_，2015年12月8日

%p#第二个Maple程序：

%pq:=n->ormap（i->i[2]=2，ifactors（n）[2]）：

%p选择（q，[1..300]）[]；#_阿洛伊斯·海因茨，2020年8月12日

%t选择[Range[250]，MemberQ[Transpose[FactorInteger[#]][2]]，2]&]（*哈维·P·戴尔，2012年9月24日*）

%o（PARI）is（n）=#select（n->n==2，Set（factor（n）[，2]））\\_Charles R Greathouse IV_，2015年9月17日

%Y参考A001694、A013929、A284017和A284018。

%K nonn，简单

%O 1,1号机组

%俄罗斯联邦_

%E由_Erich Friedman修正和扩展_