|
|
|
|
3, 5, 7, 9, 11, 13, 17, 19, 21, 23, 25, 27, 29, 31, 37, 39, 41, 42, 43, 47, 49, 53, 57, 59, 61, 63, 65, 67, 71, 73, 78, 79, 81, 83, 87, 89, 91, 97, 101, 103, 105, 107, 109, 111, 113, 114, 115, 117, 121, 125, 126, 127, 129, 130, 131, 133, 137, 139, 147, 149
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
第一个可被4整除的项是a(421)=1092。
|
|
链接
|
|
|
例子
|
术语序列及其基本指数开始于:
3: {2} 39: {2,6} 78: {1,2,6}
5: {3} 41: {13} 79: {22}
7: {4} 42: {1,2,4} 81: {2,2,2,2}
9: {2,2} 43: {14} 83: {23}
11: {5} 47: {15} 87: {2,10}
13: {6} 49: {4,4} 89: {24}
17:{7}53:{16}91:{4,6}
19: {8} 57: {2,8} 97: {25}
21: {2,4} 59: {17} 101: {26}
23: {9} 61: {18} 103: {27}
25: {3,3} 63: {2,2,4} 105: {2,3,4}
27: {2,2,2} 65: {3,6} 107: {28}
29: {10} 67: {19} 109: {29}
31: {11} 71: {20} 111: {2,12}
37: {12} 73: {21} 113: {30}
|
|
数学
|
nn=100;
dat=选择[Range[nn],CoprimQ@@PrimePi/@First/@FactorInteger[#]&];
facsusing[s_,n_]:=如果[n<=1,{{}},连接@@表[Map[Prepend[#,d]&,Select[facsusing[Select[s,Divisible[n/d,#]&],n/d],Min@@#>=d&]],{d,Select[s,Diviible[n,#]&]}]];
选择[Range[nn],facsusing[dat,#]=={}&]
|
|
交叉参考
|
囊性纤维变性。A007916号,A112798号,A302569型,A327516型,A333228型,A335238型,A335239型,A335240架,A335241飞机,A336424飞机,A336568型,A336736飞机.
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|