%I#10 2015年7月17日02:02:42
%第1,11,21121131121321123113222324213111412311341141223页,
%电话:24312213321423212332114321142322114321142211323211422114,
%电话:3223211423212143222321233211422114321142322114321321432211322232114
%说出你在上学期看到的内容,报告遇到的每个数字的总数。
%C每个术语a(n)的数字是对应术语A005151(n)数字的排列_Chayim Lowen_,2015年7月16日
%F过了一会儿,序列有句点2。
%为了得到311322之后的项,我们说:两个3,两个1,两个2,所以232122。
%t deldup[lst_]:=模块[{i,s},s={};对于[i=1,i<=长度[lst],i++,If[!MemberQ[s,lst[[i]]],AppendTo[s,lst[[i]]]];s];next[term_]:=FromDigits[Flatten[({Count[IntegerDigits[term],#],#}&)/@deldup[Integer Digits[term]]]
%Y A005150、A005151等的变体。
%K基础,简单,无
%0、2
%A _N.J.A.Sloane,2001年8月25日
%E由_Dean Hickerson修正和扩展,2001年8月27日
|