编辑

经核准的

a={0,1}；f[n_]：=块[{k=a[[n-1]]+a[[n-2]]}，如果[EvenQ[k]，AppendTo[a，k]，a=Join[a，IntegerDigits[k]]]；做[f[n]，{n，3，100}]；一个(从 * _罗伯特·威尔逊v _, 2004年3月27日 *)

经核准的

编辑

_博多·辛塞尔 (博多·辛塞尔(在)宇宙数据.网), _, 2004年3月20日

a={0,1}；f[n_]：=块[{k=a[[n-1]]+a[[n-2]]}，如果[EvenQ[k]，AppendTo[a，k]，a=Join[a，IntegerDigits[k]]]；做[f[n]，{n，3，100}]；a（来自RGWv公司 罗伯特 G公司. 威尔逊 v（v） 2004年3月27日）

非n,基础,新的

“数位斐波那契-上下”：以a（1）=1，a（2）=1开始；重复地将前两项之和（如果该和碰巧是偶数）或前两项总和的数字（如果该总和碰巧是奇数）相邻。

1, 1, 2, 3, 5, 8, 1, 3, 9, 4, 12, 1, 3, 16, 1, 3, 4, 1, 9, 1, 7, 4, 7, 5, 10, 10, 8, 1, 1, 1, 1, 12, 1, 5, 20, 18, 9, 2, 2, 2, 1, 3, 1, 3, 6, 2, 5, 38, 2, 7, 1, 1, 4, 4, 3, 4, 4, 4, 9, 8, 7, 4, 3, 40, 9, 8, 2, 5, 8, 7, 7, 8, 8, 1, 3, 1, 7, 1, 5, 1, 1, 7, 4, 3, 4, 9, 1, 7, 10, 7, 1, 3, 1, 5, 14, 1, 5, 16, 9, 4

1,3

…a（6）=a（4）+a（5），a（7）=（a（5。。。

a={0,1}；f[n_]：=块[{k=a[[n-1]]+a[[n-2]]}，如果[EvenQ[k]，AppendTo[a，k]，a=Join[a，IntegerDigits[k]]]；做[f[n]，{n，3，100}]；a（摘自RGWv 2004年3月27日）

囊性纤维变性。A093086号,A093087号,A093088号,A093089号,A093090号,A093091美元.

非n,基础

博多·辛塞尔（BodoZinser（AT）CosmoData.net），2004年3月20日

经核准的