A071251-OEIS公司

A071251号

无方形回文。

三

1, 2, 3, 5, 6, 7, 11, 22, 33, 55, 66, 77, 101, 111, 131, 141, 151, 161, 181, 191, 202, 222, 262, 282, 303, 313, 323, 353, 373, 383, 393, 434, 454, 474, 494, 505, 515, 535, 545, 555, 565, 595, 606, 626, 646, 707, 717, 727, 737, 757, 767, 777, 787, 797, 818, 838 (列表;图表;参考文献;听;历史;文本;内部格式)

	抵消	`1,2`
	链接	`阿米拉姆·埃尔达尔，n=1..10000时的n，a（n）表`
	MAPLE公司	ffpal:=进程（n）局部i，j，k，s，aa，nn，bb，标志；s：=n；aa:=转换（s，字符串）；nn:=长度（aa）；bb:=``；对于i从nn乘-1到1，做bb:=cat（bb，子串（aa，i..i））；od；标志：=0；对于从1到nn的j，如果子串（aa，j.j）<>子串（bb，j.j），则标志：=1 fi；od；返回（标志）；end:ts_ndk_pal：=proc（i）如果ffpal（i））=0，则如果（numtheory[issqrfree]（i）=“true”），则返回（i）fi-fi-end:andkpal:=[seq（ts_ndk _pal（i），i=1..10000）]：andkpal；
	数学	`选择[Range[1000]，#==FromDigits[Reverse[IntegerDigits[#]]&&Max[Transpose[FactorInteger[#]][[2]]]<2&]` `选择[Range[1000]，PalindromeQ[#]&&SquareFreeQ[#]&]（需要Mathematica版本10或更高版本）(哈维·P·戴尔2018年12月17日）`
	交叉参考	`的交点A002113号和A005117号.` `参见。A002385号,A069217号,A032350型,A035132号.` `上下文中的序列：A331394型 A273524型 A098959号A077571号 A101730号 A276692型` `相邻序列：A071248号 A071249号 A071250美元A071252号 A071253号 A071254号`
	关键词	`基础,非n`
	作者	`阿玛纳斯·穆尔西，2002年5月21日`
	扩展	`编辑人罗伯特·威尔逊v2002年6月3日`
	状态	`经核准的`