搜索： 编号：a371190
|
| |
|
|
A371190型
|
| 一对连续的强大数中较小的一个，它们之间没有非方形数。 |
|
+0个
1
|
|
|
|
1, 4, 8, 25, 32, 288, 675, 968, 1152, 1369, 2700, 9800, 12167, 39200, 48668, 70225, 235224, 332928, 465124, 1331712, 1825200, 5724500, 7300800, 11309768, 78960996, 189750625, 263672644, 384199200, 592192224, 912670088, 1536796800, 2368768896, 4931691075, 5425069447, 8957108164
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
|
|
|
例子
|
1是一个项，因为1和4是连续的强大数，而它们之间的数字2和3都是平方数。
|
|
|
数学
|
seq[max_]：=模块[{pows=Union[Flatten[Table[i^2*j^3，{j，1，Surd[max，3]}，{i，1，Sqrt[max/j^3]}]]，s={}}，Do[If[AllTrue[Range[pows[[k]]+1，pows[k+1]]-1]，SquareFreeQ]，AppendTo[s，pows[[k]]]，{k，1，Length[pows]-1}]；s] ；序列[10^10]
|
|
|
程序
|
（PARI）lista（mx）=｛my（s=List（），is）；对于（j=1，sqrtnint（mx，3），对于（i=1，sqrtint（mx\j^3），listput（s，i^2*j^3））；s=Set（s）；对于（i=1，#s-1，is=1；对于（k=s[i]+1，s[i+1]-1，if（！issquarefree（k），is=0；break））；如果（is，print1（s[i]，“，”）））；｝
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.008秒内完成
|
