%I#24 2022年11月22日02:33:44

%S 16162250014406146410342732133362345778615650219803868，

%电话：27705630674697961130304401435896422244653624103012702806938，

%电话：83075046013299739861778817670204467335230381063183891582322

%N a（N）=p^4*（p-1），其中p=素数（N）。

%H Vincenzo Librandi，<a href=“/A138407/b138407.txt”>n的表，a（n）表示n=1..200</a>

%H<a href=“/index/Pri#prime_powers”>与素数幂相关的序列索引。

%F a（n）=A000010（素数（n）^5）_R.J.Mathar，2017年10月15日

%F From _Amiram Eldar_，2022年11月22日：（开始）

%F a（n）=素数（n）^5-素数（n）^4=A050997（n）-A030514（n）。

%F产品{n>=1}（1-1/a（n））=A065416。（结束）

%t a={}；Do[p=素数[n]；附加到[a，p^5-p^4]，{n，1，50}]；一

%t f54[n_]：=模[{c=素数[n]}，c^5-c^4]；阵列[f54,30]（*_哈维·P·戴尔，2015年3月29日*）

%o（PARI）for prime（p=2,1e3，print1（p^5-p^4“，”））\\-Charles R Greathouse IV_，2011年6月16日

%o（岩浆）[1..30]]中的[NthPrime（（n））^5-NthPrice（（n））^4:n；//_文森佐·利班迪（Vincenzo Librandi），2011年6月17日

%Y参见A000010、A030514、A050997、A065416。

%K nonn，简单

%O 1,1号机组

%阿图尔·贾辛斯基，2008年3月19日

%E第一个Mathematica程序由_Harvey P.Dale_修订，2015年3月29日