%I#53 2017年8月3日11:53:35

%S 0,1,1,2,1,2,1,1,3,2,1,1,2,1,2,2,3,4,1,6,1,4,3,2,2,4,5,2,9,4,12,1,1,5,3,2，

%T 11,6,1,2,3,4,1,6,14,9,2,1,4,7,10,3,4,1,18,15,5,3,2,4,1,2,2,3,6,6,6，

%U 1,4,3,10,16,12,15,4,17,6,1,4

%N最小的m，使得2^m==2^N（mod N）。

%如果n是基2的素数或伪素数（奇数或偶数），则C a（n）=1。

%我们有一个（n）<=n-φ（n）和一个（n）<=phi（n），所以a（n）≤n/2。

%C自2016年3月11日以色列罗巴特：（开始）

%C如果n在A167791中，则a（n）=A068494（n）。

%C如果n是奇数，a（n）=n mod A002326（（n-1）/2）。

%C a（n）>=A007814（n）。

%对于所有k>=1且所有奇数素数p不在A001220中的情况，C a（p^k）=p^（k-1）。

%C猜想：对于所有n>8，a（n）<=n/3。（结束）

%H Robert Israel，n的表，a（n）表示n=1..10000</a>

%对于n>4，F a（n）<n/2。

%F a（2^k）=k表示所有k>=0。

%对于所有素数p，F a（2*p）=2。

%p f：=proc（n）局部d，b，t，m，c；

%p d：=padic:-ordp（n，2）；

%p b：=n/2^d；

%p t：=2&^n mod n；

%p m：=数值理论：-mlog（t，2，b，c）；

%p如果m<d，则m:=m+c*ceil（（d-m）/c）fi；

%百万英镑

%p端程序：

%p f（1）：=0：

%p地图（f，[1..1000]；#_Robert Israel_，2016年3月11日

%t表[k=0；而[PowerMod[2，n，n]！=功率模块[2，k，n]，k++]；k、 {n，120}]（*迈克尔·德弗里格，2016年3月15日*）

%o（PARI）a（n）={my（m=0）；while（Mod（2，n）^m！=2^n，m++）；m；}\\_Altug Alkan_，2016年9月23日

%Y参见A000010、A001220、A002326、A007814、A051953、A068494、A167791。

%Y参考A276976（在所有整数基上的推广）。

%K非n

%O 1,4型

%A Thomas Ordowski，2016年3月11日

%E 2016年3月11日，来自米歇尔·马库斯的更多条款