%我#23 2024年2月26日15:43:07

%S 9,21,25,33,49,55,65,81,85121129145161169201217221253273，

%电话：289295301321325343361385441469481501505513545589625，

%电话：649685721781801817841865901961973100110251027108110891101113511712611281133313451369140514411501

%N复合k，使得p-1将k-1除以k-1的每个素数因子。

%C复合材料不在A272601中。

%H Charles R Greathouse IV，n表，n=1..10000的a（n）</a>

%t pdkQ[n_]：=模块[{p=FactorInteger[n-1][[；；，1]]-1}，AllTrue[（n-1）/p，IntegerQ]]；选择[Range[1550]，CompositeQ[#]&&pdkQ[#]&]（*哈维·P·戴尔，2024年2月26日*）

%复合材料的o（PARI）（n=4，10^4，my（q=1，f=系数（n-1）[，1]）；对于（j=1，#f，如果（n-1）%（f[j]-1），q=0；断裂）；如果（q，打印1（n，“，”））；

%o（PARI）是（n）=我的（f=系数（n-1）[，1]）；对于（i=1，#f，如果（n-1）%（f[i]-1），返回（0））！isprime（n）&&n>1\\_Charles R Greathouse IV_，2016年5月16日

%Y参考A080062（复合n，即p-1除以n的每个素除数n-1）。

%K nonn公司

%O 1,1号机组

%A _Joerg Arndt_，2016年5月16日