%I#25 2020年3月24日03:25:02

%S 21,33,39,65,85,95115133145161185203205215217235259，

%电话2612652792872953013053293353413565371395407413415，

%电话：4274455451469473481485497

%N个类似素数幂但不是素数幂的整数。

%对于整数n>0而不是单位，我们定义DTD（n）为n的除数的差分表。如果表中的所有项都为正，则DTD（n）为正；如果表中所有行和所有列都不减（从左到右和从上到下读取），则称DTD（m）为单调。

%我们定义一个整数n是素数幂似的当且仅当DTD（n）是正单调的。所有素数幂（在A246655（但不是A000961）的意义上）都是素数幂类整数。序列A273200提供素数幂型整数。这个序列（A273201）列出了类似素数幂但不是素数幂的整数。

%C因此，我们有夹杂物A000040<A246655<A273200和接头A273200=A273201 U A246655。A273199中列出了DTD为正但不是单调的整数。带有正DTD的整数列在A273130中。

%e 95的顺序是这样的，因为95的DTD具有正条目和不减少的行和列：

%e[1 5 19 95]

%e[4 14 76]

%电子[10 62]

%e【52】

%t pplikeQ[n_]：=模块[{t，DTD，DTD2}，如果[n==1||PrimePowerQ[n]，返回[False]]；T=除数[n]；DTD=表[差异[T，k]，{k，0，长度[T]-1}]；如果[AnyTrue[Flatten[DDT]，NonPositive]，Return[False]]；DTD2=转置[PadRight[#，Length[T]，Infinity]&/@DTD]；AllTrue[DTD，OrderedQ]&&AllTrue[PTD2，Ordered Q]]；

%t选择[Range[500]，pplikeQ]（*Jean-François Alcover_，2019年6月28日*）

%o（Sage）#使用[A273200中的is_prime_power_like]

%o#比较A273200中的脚本。

%o定义为_A273201（n）：

%o返回非is_prime_power（n）和is_prim_power_like（n）

%o打印（列表（过滤器（is_A273201，范围（1500）））

%Y参见A000040、A246655、A273102、A273130、A273199、A273200。

%K nonn公司

%O 1,1号机组

%A _Peter Luschny_，2016年5月17日