%I M2890#42 2024年1月3日23:46:24
%S 3,11,3710133366790919901909091111111111111111,
%电话:111111111111111 99990001999999000001909090909090 909091,
%电话:9009009009909909999999999000000019090909090 90909090%90909091900900900900900099099090999999990999999990999991
%具有唯一周期长度的N个素数(周期在A007498中给出)。
%C附加项是A007498中n的Phi(n,10)/gcd(n,Phi(n,10)),其中Phi(n,10)是在10处计算的第n个分圆多项式。
%D N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
%D Samuel Yates,恰好一个或两个素数的周期长度,J.Rec.Math。,18 (1985), 22-24.
%H Max Alekseyev,n表,n=1..98的a(n)(T.D.Noe的术语1..25;Ray Chandler的术语26..31)
%H C.K.Caldwell,《主要词汇表》,<a href=“https://t5k.org/glossary/page.php?sort=UniquePrime“>唯一素数</a>
%H Makoto Kamada,<a href=“https://stdkmd.net/nrr/repunit/phin10.htm“>Phi_n(10)的因子分解</a>
%H<a href=“/index/1#1vern”>为与1/n的十进制扩展相关的序列的索引项</a>
%F a(n)=A061075(A007498(n))。-_Max Alekseyev_,2010年10月16日
%F a(n)=A006530(A019328(A007498(n)))_雷·钱德勒(Ray Chandler),2017年5月10日
%e3是唯一的素数p,使得1/p的十进制展开式的(非平凡)周期正好为1。
%t nmax=50;periods=收割[Do[p=分圆[n,10]/GCD[n,分圆[n,10]];如果[PrimeQ[p],Sow[n]],{n,1,nmax}]][[2,1]];分圆[#,10]/GCD[#,分圆[#,10]]&/@periods//Prepend[#,3]&(*_Jean-François Alcover_,2013年3月28日*)
%Y参见A007498、A040017、A002371、A048595、A006883、A007732、A051626、A061075、A006530、A019328。
%K nonn,好,容易,基础
%O 1,1号机组
%A _N.J.A.Sloane,_Robert G.Wilson v _,_Mira Bernstein_
|