登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A173703型 具有φ(n)除以(n-1)^2的性质的复合数n。 9
561, 1105, 1729, 2465, 6601, 8481, 12801, 15841, 16705, 19345, 22321, 30889, 41041, 46657, 50881, 52633, 71905, 75361, 88561, 93961, 115921, 126673, 162401, 172081, 193249, 247105, 334153, 340561, 378561, 449065, 460801, 574561, 656601, 658801, 670033 (列表图表参考历史文本内部格式)
抵消
1,1
评论
所有项都是奇数,因为如果n是偶数,(n-1)^2是奇数而φ(n)对于n>2是偶数-多诺万·约翰逊2013年9月8日
McNew表明,x下面这个序列中的项数是O(x^(6/7))-山田友弘2020年9月28日
链接
Joerg Arndt和Donovan Johnson,n=1..2000时的n,a(n)表(Joerg Arndt的前327个术语)
何塞·玛丽亚·格劳和安东尼奥·奥尔勒·马塞恩,关于k-Lehmer数,整数,12(2012),#A37
内森·麦克纽,彻底削弱Lehmer和Carmichael条件《国际数论杂志》第9期(2013),1215-1224;可从获取arXiv公司,arXiv:1210.2001[math.NT],2012年。
罗密奥·梅什特罗维奇,Carmichael数的推广I,arXiv:1305.1867v1[math.NT],2013年5月4日。
例子
a(1)=561在序列中,因为560^2=φ(561)*980=320*980=313600。
MAPLE公司
isA173703:=进程(n)
n<>1且不为素数(n)和(modp((n-1)^2,numtheory[phi](n))=0);
结束进程:
n从1到10000 do
如果是A173703(n),则
printf(“%d,\n”,n);
结束条件:;
结束do:#R.J.马塔尔2017年11月6日
数学
并集[表[If[PrimeQ[n]===False&&IntegerQ[(n-1)^2/EulerPhi[n]],n],{n,3,100000}]]
选择[Range[700000],CompositeQ[#]&Divisible[(#-1)^2,EulerPhi[#]]&](*哈维·P·戴尔2014年11月29日*)
选择[Range[1,700000,2],CompositeQ[#]&&PowerMod[#-1,2,EulerPhi[#]]==0&](*哈维·P·戴尔2021年8月10日*)
黄体脂酮素
(PARI)
N=10^9;
默认值(primelimit,N);
ct=0;
{对于(n=4,n,
如果(!isprime(n),
如果((n-1)^2%eulerphi(n))==0,
ct+=1;
打印(ct,“”,n);
);
);
); }
/*乔格·阿恩特2012年6月23日*/
交叉参考
囊性纤维变性。A000010号,A207080型.
囊性纤维变性。A238574型(某些k的k-Lehmer数)。
关键词
非n
作者
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年4月19日07:35。包含371782个序列。(在oeis4上运行。)