显示找到的2个结果中的1-2个。
第页1
1, 12, 18, 28, 30, 38, 42, 48, 60, 72, 102, 108, 138, 150, 168, 180, 192, 228, 240, 270, 282, 312, 348, 402, 420, 432, 462, 522, 570, 600, 618, 642, 660, 732, 768, 798, 810, 858, 882, 990, 1008, 1020, 1050, 1092, 1152, 1218, 1230, 1278, 1290, 1320, 1428, 1452, 1482, 1608, 1620, 1722, 1788, 1830, 1848
数学
s=表格[Count[Range[k],_?(Nor[CoprimQ[#,k],GCD[k^2-1,#]>1,可除[k,Times@@FactorInteger[#][[All,1]]]&)],{k,1000}];地图[FirstPosition[s,#][[1]]&,Union@FoldList[Max,s]]
0, 1, 3, 4, 5, 6, 12, 14, 19, 31, 46, 52, 68, 70, 74, 89, 104, 123, 128, 146, 158, 176, 199, 207, 229, 257, 264, 311, 339, 370, 375, 391, 396, 409, 428, 446, 514, 532, 559, 578, 595, 650, 666, 695, 727, 728, 801, 807, 843, 861, 929, 939, 953, 1025, 1087, 1134, 1143, 1164, 1197, 1221, 1282, 1314, 1327
数学
Union@FoldList[Max,Table[Count[Range[k],_?(Nor[CoprimQ[#,k],GCD[k^2-1,#]>1,可除[k,Times@@FactorInteger[#][[All,1]]&)],{k,2^11}]]
搜索在0.004秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:2024年9月21日16:51 EDT。包含376087个序列。(在oeis4上运行。)
|