登录
OEIS由支持
OEIS基金会的许多慷慨捐赠者
.
提示
（来自的问候
整数序列在线百科全书
!)
135780英镑
平方，以便通过数字的循环置换（不包括前导零）可以获得另一个平方。
2
144, 196, 256, 441, 625, 961, 11664, 14884, 16384, 16641, 25600, 36864, 38416, 46656, 48841, 60025, 61009, 66564, 86436, 96100, 166464, 214369, 216225, 236196, 272484, 364816, 436921, 481636, 622521, 646416, 842724, 870489, 898704, 962361
(
列表
;
图表
;
参考
;
听
;
历史
;
文本
;
内部格式
)
抵消
1,1
评论
这是
A034289号
.
似乎在循环排列（检查到（10^8）^2）之前，只有两个正方形具有相同的数字。
链接
M.F.Hasler，
n=1..816时的n，a（n）表
例子
a（1）=144=12^2是最小平方，使得其十进制数字的循环置换再次是平方，即441=21。
a（2）=196=14^2是具有此特性的第二最小二乘，其中961=19^2。
A034289号
（2） =169在这里不显示，因为它产生平方的数字的排列是196和961，这不是169的循环排列。
数字25600在这里，因为60025也是一个正方形。
00256也是一个正方形的事实与此无关：不考虑带前导零的排列。
数学
scpQ[n_]：=模块[{idn=IntegerDigits[n]，r}，r=DeleteCase[Rest[NestList[RotateRight[#]&，IntegerDigits[n]，Integer Length[n]-1]]，_？
（第一个[#]==0&）]；
AnyTrue[FromDigits/@r，IntegerQ[Sqrt[#]]&]]；
选择[Range[1000]^2，scpQ]（*此程序使用Mathematica版本10*中的AnyTrue函数）(*
哈维·P·戴尔
2014年8月21日*）
黄体脂酮素
（PARI）for（n=1，10^8，（t=n^2）/*%10||next<=这将排除带有尾随'0's*/的术语；
发现=0；
对于（j=1，k=#Str（t）-1，t=divrem（t，10）；
t[2]||（t=t[1]）&&next/*<=这不包括前导'0's*/；
issquare（t=t[1]+10^k*t[2]）||next；/*
t%10||下一个；<=
将排除后面带有'0's*/print1的排列（如果（找到，“<<<”/*标记多个排列：这永远不会发生*/，找到=1；n^2）“，”）
交叉参考
囊性纤维变性。
A034289号
（允许任意排列），
A135770型
.
上下文中的序列：
A257412型
A165076号
A165078号
*
A069701号
A358666型
A349064型
相邻序列：
A135777号
A135778号
A135779号
*
A135781号
A135782号
135783英镑
关键词
基础
,
容易的
,
非n
,
美好的
作者
大卫·W·威尔逊
和
M.F.哈斯勒
2008年1月9日
状态
经核准的
