搜索: a331085-编号:a331085
|
|
|
|
1, 4, 5, 9, 12, 13, 26, 68, 86, 87, 88, 89, 93, 99, 155, 176, 177, 183, 195, 212, 230, 231, 232, 233, 237, 243, 255, 320, 321, 327, 384, 395, 411, 415, 424, 464, 465, 471, 475, 484, 515, 544, 575, 591, 602, 644, 655, 656, 744, 824, 875, 894, 924, 1043, 1115, 1127
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
斐波那契数F(6*k-1)和F(6*k)是项。
|
|
链接
|
|
|
数学
|
ind[n_]:=楼层[Log[Abs[n]*Sqrt[5]+1/2]/Log[GoldenRatio]];
f[1]=1;f[n_]:=如果[n>0,i=ind[n-1];如果[EvenQ[i],i++];i、 i=指数[-n];如果[OddQ[i],i++];i] ;
negaFibTermsNum[n_]:=模块[{k=n,s=0},而[k!=0,i=f[k];s+=1;k-=斐波那契[-i]];s] ;
negFibQ[n_]:=可除[n,negaFibTermsNum[n]];
nConsec=2;neg=negFibQ/@范围[nConsec];序列={};c=0;k=nConsec+1;当[c<55时,如果[And@@neg,c++;AppendTo[seq,k-nConsec]];neg=连接[Rest[neg],{negFibQ[k]}];k++];序列
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
4, 12, 86, 87, 88, 176, 230, 231, 232, 320, 464, 655, 1194, 1592, 1596, 1854, 1914, 2815, 3016, 3294, 4124, 4178, 4179, 4180, 4268, 4412, 5663, 5755, 8360, 9894, 10614, 10703, 10915, 10975, 13936, 14994, 15114, 15714, 17630, 18976, 19984, 20824, 21835, 23175, 23513
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
F(6*k+1)-1形式的数字是项,其中F(m)是第m个斐波那契数。
F(k)-3形式的数,其中k与{5,11,13,19}模24同余(A269819型)是连续5个负数Fibonacci-Niven数的开始。
|
|
链接
|
|
|
数学
|
ind[n_]:=楼层[Log[Abs[n]*Sqrt[5]+1/2]/Log[GoldenRatio]];
f[1]=1;f[n_]:=如果[n>0,i=ind[n-1];如果[EvenQ[i],i++];i、 i=指数[-n];如果[OddQ[i],i++];i] ;
negaFibTermsNum[n_]:=模块[{k=n,s=0},而[k!=0,i=f[k];s+=1;k-=斐波那契[-i]];s] ;
negFibQ[n_]:=可除[n,negaFibTermsNum[n]];
nConsec=3;neg=negFibQ/@范围[nConsec];序列={};c=0;k=nConsec+1;当[c<55时,如果[And@@neg,c++;AppendTo[seq,k-nConsec]];neg=连接[Rest[neg],{negFibQ[k]}];k++];序列
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 4, 6, 12, 18, 24, 27, 30, 36, 48, 55, 60, 72, 84, 90, 96, 100, 108, 110, 112, 116, 120, 144, 150, 156, 172, 176, 180, 184, 192, 196, 208, 228, 234, 240, 246, 252, 260, 264, 288, 300, 305, 320, 328, 330, 336, 340, 360, 372, 378, 384, 396, 400, 415, 420, 460, 468, 475, 480, 492
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
数学
|
ind[n_]:=楼层[Log[Abs[n]*Sqrt[5]+1/2]/Log[GoldenRatio]];
f[1]=1;f[n_]:=如果[n>0,i=ind[n-1];如果[EvenQ[i],i++];i、 i=ind[-n];如果[OddQ[i],i++];i] ;
negaFibTermsNum[n_]:=模块[{k=n,s=0},而[k!=0,i=f[k];s+=1;k-=斐波那契[-i]];s] ;
选择[Range[500],Divisible[#,negaFibTermsNum[#]]和&Divisible[#,negaFibTermsNum[-#]]&]
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 744, 875, 924, 1115, 1575, 1704, 1955, 2904, 3815, 5495, 5844, 6125, 6335, 6824, 7136, 7314, 8154, 8225, 8360, 8784, 9414, 10535, 10744, 10935, 11976, 12047, 13194, 13404, 13475, 18024, 19368, 19943, 20615, 21791, 22224, 22560, 23807, 24143, 24576, 25752, 26424, 26999
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
数学
|
ind[n_]:=楼层[Log[Abs[n]*Sqrt[5]+1/2]/Log[GoldenRatio]];
f[1]=1;f[n_]:=如果[n>0,i=ind[n-1];如果[EvenQ[i],i++];i、 i=ind[-n];如果[OddQ[i],i++];i] ;
negaFibTermsNum[n_]:=模块[{k=n,s=0},而[k!=0,i=f[k];s+=1;k-=斐波那契[-i]];s] ;
negFibQ[n_]:=可除[n,negaFibTermsNum[n]]&&可除[n,negaFabTermsnum[-n]];
nConsec=2;neg=negFibQ/@范围[nConsec];序列={};c=0;k=nConsec+1;当[c<45时,如果[And@@neg,c++;AppendTo[seq,k-nConsec]];neg=连接[Rest[neg],{negFibQ[k]}];k++];序列
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 3, 4, 6, 8, 9, 12, 14, 15, 16, 18, 20, 21, 24, 28, 30, 32, 33, 35, 36, 40, 42, 48, 50, 52, 54, 56, 57, 60, 62, 63, 64, 66, 68, 69, 72, 76, 78, 80, 81, 84, 88, 90, 91, 95, 96, 100, 102, 108, 110, 112, 114, 120, 124, 125, 126, 128, 129, 132, 136, 138, 140
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
例子
|
6是一个术语,因为A039724号(6) =11010和1+1+0+1+0=3是6的除数。
|
|
数学
|
negaBinWt[n_]:=negaBinWt[n]=如果[n==0,0,negaBin Wt[商[n-1,-2]]+Mod[n,2]];negaBinNivenQ[n_]:=可除[n,negaBinWt[n]];选择[Range[100],negaBinNivenQ]
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 6, 9, 14, 21, 40, 42, 56, 72, 84, 108, 110, 120, 126, 130, 143, 154, 156, 162, 165, 168, 169, 176, 180, 182, 189, 198, 220, 225, 231, 243, 252, 280, 288, 297, 306, 308, 320, 322, 330, 336, 348, 350, 364, 390, 423, 430, 432, 459, 460, 462, 480, 490, 504
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
例子
|
6是一个项,因为它在基3/2中的表示是210,2+1+0=3是6的除数。
9是一个术语,因为它在基数3/2中的表示是2100,2+1+0=3是9的除数。
|
|
数学
|
s[0]=0;s[n_]:=s[n]=s[2*Floor[n/3]]+Mod[n,3];q[n_]:=可除[n,s[n]];选择[范围[500],q]
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A342726型
|
| 以i-1为基数的Niven数:可被其以i-1作为基数的数字之和整除的数。 |
|
+10 17
|
|
|
1, 2, 3, 4, 5, 6, 7, 10, 12, 15, 16, 18, 20, 24, 25, 30, 32, 33, 35, 36, 40, 42, 44, 45, 48, 50, 54, 60, 64, 65, 66, 70, 77, 80, 88, 90, 96, 99, 100, 110, 112, 120, 124, 125, 126, 130, 140, 144, 145, 147, 150, 156, 160, 168, 170, 180, 182, 184, 185, 186, 190, 192
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
等价地,以-4为基数的Niven数,因为A066323号(k) 也是以-4为基数的k的位数之和。
|
|
链接
|
沃尔特·彭尼,复数的“二进制”系统《美国医学会杂志》,第12卷,第2期(1965年),第247-248页。
|
|
例子
|
2是一个项,因为它在基i-1中的表示是1100,而1+1+0=2是2的除数。
10是一个项,因为它在基i-1中的表示是111001100,1+1+1+0+0+1+1+0=5是10的除数。
|
|
数学
|
v={{0,0,0,0},{0,0,1},{1,1,0,0},{1,1,0,1}};q[n_]:=可除[n,Total[Flatten@v[[1+Reverse@Most[Mod[NestWhileList[(#-Mod[#,4])/-4&,n,#!=0 &], 4]]]]]]; 选择[范围[200],q]
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 3, 4, 6, 7, 8, 9, 12, 14, 15, 16, 20, 24, 27, 28, 30, 31, 32, 33, 36, 39, 40, 42, 44, 45, 48, 51, 52, 56, 57, 60, 62, 63, 64, 68, 72, 75, 76, 80, 84, 88, 90, 92, 96, 99, 100, 104, 105, 108, 111, 112, 116, 120, 123, 124, 126, 127, 128, 129, 132, 135, 136
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
Eric Weistein的《数学世界》,格雷代码.
|
|
例子
|
2是一个项,因为它的格雷码是11,1+1=2是2的除数。
6是一个术语,因为它的格雷码是101,1+0+1=2是6的除数。
|
|
数学
|
gcNivenQ[n_]:=可除[n,数字计数[BitXor[n,Floor[n/2]],2,1]];选择[Range[150],gcNivenQ]
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 3, 4, 6, 7, 8, 10, 11, 12, 14, 18, 20, 22, 24, 27, 29, 30, 32, 36, 39, 40, 42, 47, 48, 50, 54, 57, 58, 60, 64, 66, 69, 72, 76, 78, 80, 81, 84, 90, 92, 94, 96, 100, 104, 108, 120, 123, 124, 126, 129, 130, 132, 134, 135, 138, 140, 144, 152, 153, 156, 159, 160
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
例子
|
|
|
数学
|
lucasNivenQ[n_]:=模块[{s={},m=n,k=1},当[m>0时,如果[m==1,k=1;附加到[s,k];m=0,如果[m==2,k=0;附加到[s,k];m=0,而[LucasL[k]<=m,k++];k--;附加到[s,k];m-=卢卡斯L[k];k=1]]];可除[n,Plus@@IntegerDigits[Total[2^s],2]];选择[Range[160],lucasNivenQ]
|
|
交叉参考
|
类似序列:A005349号,A049445号,A064150型,A064438美元,A064481号,A118363号,A328208型,A328212型,A331085型,A333426飞机,A342726型,A334308型,A331728型,A342426,A344341飞机,A351719型.
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 4, 6, 9, 12, 16, 20, 25, 40, 42, 54, 60, 66, 78, 84, 91, 96, 104, 112, 120, 126, 144, 154, 161, 168, 175, 176, 180, 182, 184, 192, 203, 210, 216, 217, 224, 232, 234, 240, 243, 264, 270, 280, 288, 304, 306, 310, 315, 320, 322, 328, 336, 344, 350, 360, 378
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
例子
|
|
|
数学
|
lazy=选择[IntegerDigits[Range[3000],2],SequenceCount[#,{0,0}]==0&];t=总计[#*Reverse@LucasL[Range[0,Length[#]-1]]]&/@lazy;s=FromDigits/@lazy[[TakeWhile[Flatten[FirstPosition[t,#]&/@Range[Max[t]]],NumberQ]];位置[Divisible[Range[Length[s]],Plus@@@Integer Digits[s]',True]//展平
|
|
交叉参考
|
类似序列:A005349号,A049445号,A064150型,A064438美元,A064481号,A118363号,A328208型,A328212型,A331085型,A333426,A342726型,A334308型,A331728型,A342426飞机,A344341飞机,A351714型.
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.009秒内完成
|