A217727-OEIS公司

A217727型

a（1）=2。对于n>=1，设k=楼层（log a（n））。如果k>=2且k不在序列中，则a（n+1）=k，否则a（n/1）=a（n）^2。

三

2, 4, 16, 256, 5, 25, 3, 9, 81, 6561, 8, 64, 4096, 16777216, 281474976710656, 33, 1089, 6, 36, 1296, 7, 49, 2401, 5764801, 15, 225, 50625, 10, 100, 10000, 100000000, 18, 324, 104976, 11, 121, 14641, 214358881, 19, 361, 130321, 16983563041, 23, 529, 279841, 12, 144, 20736, 429981696, 184884258895036416, 39 (列表;图表;参考;听;历史;文本;内部格式)

	偏移	`1,1`
	评论	`每个>=2的数字都出现了吗？` `由Keith F.Lynch于2013年3月21日在数学趣味邮件列表中发布的建议。` `请参见A277848型对于给定数字的索引，即该函数的左逆函数-M.F.哈斯勒2016年11月20日`
	链接	`阿洛伊斯·海因茨，n=1..662时的n，a（n）表`
	MAPLE公司	`数字：=100；` `a1:=[2，4，16]；` `s1:=转换（a1，set）；` `对于n，从3到50 do` `t1:=a1[n]；` `k： =楼层（对数（t1））；` `如果k>=2，则` `如果evalb（s1中的k），则a1：=[op（a1），t1^2]；s1:=s1联合{t1^2}` `否则a1:=[op（a1），k]；s1:=s1联合{k}；fi；` `其他的` `a1:=[操作（a1），t1^2]；s1:=s1联合{t1^2}；` `fi；` `日期：` `[seq（a1[i]，i=1..nops（a1））]；`
	数学	`a={2}；Do[If[And[#>=2，！MemberQ[a，#]]，AppendTo[a，#]，AppedTo[a，a[[n]]^2]&@Floor@Log@a[[n]，{n，50}]；一个(迈克尔·德弗利格2016年11月22日）`
	黄体脂酮素	`（PARI）A217727型（n，show_all=0，a=2，u=[]）={对于（i=2，n，show _all&&print1（a“，”）；u=setunion（u，[a]）；while（#u>1&&u[2]==u[1]+1，u=u[^1]）；my（t=log（a）\1）；a=if（t>u[1]&&！setsearch（u，t），t，a^2））；a}\\M.F.哈斯勒2016年11月22日`
	交叉参考	`囊性纤维变性。A114183号.` `上下文中的序列：A109457号 A352801型 A105788号A071008号 A299535型 A220169年` `相邻序列：A217724型 A217725型 A217726型A217728型 A217729型 A217730型`
	关键词	`非n`
	作者	`N.J.A.斯隆2013年3月21日`
	状态	`经核准的`

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

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

最后修改时间：美国东部时间2024年4月18日18:58。包含371781个序列。（在oeis4上运行。）