A098099-OEIS公司

A098099型

考虑正奇整数的单位数序列：1 3 5 7 9 1 1 1 3 1 5 1 7 1 9 2 1 3 2 5。。。(A031312号). 这个序列是产生相同数字序列的不同正偶数的字典编纂最早序列。

1357911131517192, 12, 32, 52, 72, 931333537394, 14, 34, 54, 74, 951535557596, 16, 36, 56, 76, 971737577798, 18, 38, 58, 78, 9919395979910, 110, 310, 510, 710, 911111311511711912, 112, 312, 512, 712, 913113313513713914, 114, 314, 514, 714

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

原始名称：“将每个大于0的偶数写在单个标签上。将标签按数字顺序排列，形成无限序列L。现在考虑A005408号（奇数）：1 3 5 7 9 1 1 1 1 3 1 5 1 7 1 9 1 2 3 2 5 2 7 9 3 3 3 5 3 7 9……序列S重新排列了复制相同数字序列的标签，但必须使用最小的标签，这不会导致矛盾。"

大致可以这样改写：以最经济的方式改写“奇数模式”，只使用偶数，但要重新排列。序列的所有编号必须彼此不同。

参考文献

E.Angelini，“Jeux de suites”，载于《Pour La Science档案》，第32-35页，第59卷（Jeux math'），2008年4月/6月，巴黎。

链接

迈克尔·德弗利格，n=1..10000时的n，a（n）表

例子

我们必须以“1,3,5…”开头，不能使用“1”或“13”或“135”（只有偶数项可用），因此第一种可能性是“1357911131517192”。例如，对于“199201203…”，我们将不允许使用“1992”，因为没有以0开头的术语。

数学

f[lst_List，k_]：=块[{L=lst，g，w，a={}，m}，g[x_]：=First@FirstPosition[x，i_/；EvenQ@i]；Do[w=取[L，g@L]；L=落差[L，长度@w]；m=取[L，g@L]；而[Or[MemberQ[a，FromDigits@w]，IntegerLength@FromDigets@m<Length@m]，w=连接[w，m]；L=落差[L，长度@m]；m=取[L，g@L]]；附加到[a，FromDigits@w]，{k}]；a] ；f[Flatten@Map[IntegerDigits，Range[1，1000，2]]，35](*迈克尔·德弗利格2015年11月28日，第10版*）

交叉参考

囊性纤维变性。A005408号,A005843号,A097487号,A097968号.

上下文中的序列：134692英镑 A288286型 A217683型*A338442型 A257138型 A288279型

相邻序列：A098096号 A098097号 A098098美元*A098100型 A098101号 A098102号

关键字

基础,容易的,非n

作者

埃里克·安吉利尼2004年9月22日

扩展

名称和示例编辑人丹尼·罗拉博2015年11月28日

状态

经核准的