%I#9 2022年4月3日13:53:13

%S 0,1,1,1,1,2,1,1,1,1,2,1,1,2,1,1,1,2,2,1,1,1,1,11,2,2,1,1,2,1,1,1,1,1,1,1,2,2，

%温度2,2,1,2,2,1,1,1,3,1,1,2,1,1,1,1,1,2,1,1,1,2,2,2,1,2,1,2,1,1,2,3,1,1，

%U 2,3,1,1,1,2,1,1,1,1,2,3,1,1,2,2,2,2,1,1,2,1,1,1,2,2,2,2,1,1,1,12,2,1,3,1,3

%N a（N）=A051903（A181819（N））。

%H Michael De Vlieger，n的表，n的a（n）=1..10000</a>

%H<a href=“/index/Eu#epf”>根据n的因式分解中的指数计算序列的索引项</a>

%F a（n）=A051903（A181819（n））。

%t{0}~Join~Array[Max[FactorInteger[#][[All，-1]]&@Apply[Times，Prime[FactorInteger[#][[All，-1]]]&，104，2]（*_Michael De Vlieger_，2022年4月3日*）

%o（PARI）

%o A051903（n）=如果（（1==n），0，vecmax（系数（n）[，2]））；

%o A181819（n）=系数回复（应用（e->prime（e），（系数（n）[，2]））；

%o A351946（n）=A051903（A181819（n））；

%Y参考A051903，A181819。

%Y在n=450时首次与A327500不同，其中a（450）=2，而A327500（450）=3。所有这些位置见A351947。

%K nonn公司

%O 1,6型

%2022年4月3日，安提·卡图宁