%I M4480 N1897#44 2023年1月13日11:04:03
%S 0,1,8,11,69,88,96101111181609619689808818888906916986,
%电话:1001111116911881196160096161196699688969800881188698,
%电话:88888 968900691169969886996610010110101101111111111609116191
%N Strobogramatic数字:相同的倒置。
%C Strobogramatic数字是一种歧义词,当倒置观看时,其含义保持不变_丹尼尔·蒙多特(Daniel Mondot),2016年9月27日
%C这里的“倒置”是指旋转180度(即中心对称),而不是“垂直翻转”(相对于水平线的对称,在A045574中)_M.F.Hasler,2012年5月4日
%D N.J.A.Sloane,《整数序列手册》,学术出版社,1973年(包括该序列)。
%D N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
%H Michael S.Branicky,n的表格,a(n)表示n=1..10000(术语1..1000来自T.D.Noe)
%H J.M.Howell,<a href=“http://www.jstor.org/stable/2688504“>中风年份</a>,《数学杂志》,34(1961),第182和184页。
%H N.J.A.斯隆,<A href=“https://arxiv.org/abs/2301.03149“>《整数序列手册》,五十年后,arXiv:2301.03149[math.NT],2023年,第5页。
%t fQ[n_]:=块[{s={0,1,6,8,9},id=IntegerDigits[n]},如果[Union[Join[s,id]]==s&&(id/.{6->9,9->6})==Reverse[id],True,False]];选择[范围[0,16190],fQ[#]&](*_Robert G.Wilson v_,2005年10月11日*)
%o(Python)
%o从itertools导入count、islice、product
%o定义ud(s):返回s[::-1]。翻译({ord('6'):ord('9'),ord('9'):ord('6')})
%o定义代理():
%o[0,1,8]的产量
%计数(2)中的d为o:
%o用于“1689”中的启动:
%o对于产品中的其余部分(“01689”,重复=d//2-1):
%o left=开始+“”.join(rest)
%o右=ud(左)
%o对于[[“”],[“0”,“1”,“8”]][d%2]中的中间值:
%o产量int(左+中+右)
%o打印(列表(islice(agen),47))#_Michael S.Branicky_,2022年3月29日
%Y参见A007597(此序列中的底漆)、A057770、A111065、A169731(另一版本)。
%A045574的Y子序列_M.F.Hasler,2012年5月4日
%K基数,非n,简单
%氧1,3
%A _N.J.A.斯隆_
%E更多条款,摘自2005年10月11日_Robert G.Wilson v_
|