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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A297249型 以3为底的数字的下变量大于上变量的数字;请参阅注释。 4
3, 6, 7, 9, 12, 15, 18, 19, 21, 22, 24, 25, 27, 30, 33, 36, 39, 42, 45, 48, 51, 54, 55, 57, 58, 60, 61, 63, 64, 66, 67, 69, 70, 72, 73, 75, 76, 78, 79, 81, 84, 87, 90, 93, 96, 99, 102, 105, 108, 111, 114, 117, 120, 123, 126, 129, 132, 135, 138, 141, 144, 147 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
评论
假设n的基数是b(m),b(m-1)。。。,b(0)。n的base-b下变量是所有d(i)-d(i-1)的和DV(n,b),其中d(i;n的基本b变化是d(k)<d(k-1)的所有d(k-1)-d(k)的总和UV(n。n的总碱基b变化量是总和TV(n,b)=DV(n,b)+UV(n,c)。请参阅上的指南A297330型.
链接
克拉克·金伯利,n=1..10000时的n,a(n)表
例子
147碱基-3:1,3,1,1,0,DV=3,UV=2,因此147在序列中。
数学
g[n_,b_]:=映射[Total,GatherBy[Differences[IntegerDigits[n,b]],Sign]];
x[n_,b_]:=选择[g[n,b],#<0&];y[n_,b_]:=选择[g[n,b],#>0&];
b=3;z=2000;p=表格[x[n,b],{n,1,z}];q=表[y[n,b],{n,1,z}];
w=符号[压扁[p/.{}->{0}]+压扁[q/.{}->{0}];
取[压扁[位置[w,-1]],120](*A297249型*)
取[Flatten[Position[w,0]],120](*A297250型*)
取[Flatten[Position[w,1]],120](*A297251型*)
交叉参考
囊性纤维变性。A297250型,A297251型,A297330型.
关键词
非n,基础,容易的
作者
克拉克·金伯利,2018年1月15日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年6月21日09:49。包含373543个序列。(在oeis4上运行。)