登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
搜索: 编号:a033620
显示1-1个结果(共1个)。 第页1
    排序:关联|参考文献||被改进的|创建     格式:长的|短的|数据
A033620型 数所有的素因子都是回文。 +0个
9
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 27, 28, 30, 32, 33, 35, 36, 40, 42, 44, 45, 48, 49, 50, 54, 55, 56, 60, 63, 64, 66, 70, 72, 75, 77, 80, 81, 84, 88, 90, 96, 98, 99, 100, 101, 105, 108, 110, 112, 120, 121, 125, 126, 128, 131 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
的乘法闭包A002385号;A051038号A046368号是子序列-莱因哈德·祖姆凯勒2011年4月11日
链接
配方奶粉
Sum_{n>=1}1/a(n)=产品_{p inA002385号}p/(p-1)=5.0949-阿米拉姆·埃尔达尔2020年9月27日
例子
10=2*5是一个术语,因为2和5都是回文。
110=2*5*11是一个术语,因为2、5和11是回文。
MAPLE公司
N: =5:#以获取最多N位数的所有项
digrev:=程序(t)局部L;L: =转换(t,基数,10);
加(L[-i-1]*10^i,i=0..nops(L)-1);
结束进程:
P素数:=[2,3,5,7,11]:
d从3到N乘以2 do
m: =(d-1)/2;
P素数:=P素数,选择(i素数,[seq(seq(n*10^(m+1)+y*10^m+digrev(n),y=0..9),n=10^;
日期:
P素数:=映射(op,[P素数]):
M: =10^N:
B: =矢量(M);
B[1]:=1:
对于p中的p而言
对于从1到地板的k(log[p](M))do
R: =[1..美元(M/p^k)];
B[p^k*R]:=B[p^k*R]+B[R]
日期:
选择(t->B[t]>0,[1..M]美元)#罗伯特·伊斯雷尔2015年7月5日
#备选方案
isA033620:=进程(n)
numtheory[因子集](n)do中的d
如果不是A002113(op(1,d)),则
返回false;
结束条件:;
结束do;
真;
结束进程:
对于从1到300 do的n
如果是A033620(n),则
printf(“%d,”,n);
结束条件:;
结束do:#R.J.马塔尔2015年9月9日
数学
palQ[n_]:=反向[x=整数位数[n]]==x;选择[Range[131],然后选择@@palQ/@First/@FactorInteger[#]&](*贾扬达·巴苏2013年6月5日*)
黄体脂酮素
(哈斯克尔)
a033620 n=a033620_列表!!(n-1)
a033620_list=过滤器chi[1..],其中
chi n=a136522 spf==1&&(n’==1|| chi n’)其中
n’=n `div`spf
spf=a020639 n——比较。A020639号
--莱因哈德·祖姆凯勒2011年4月11日
(PARI)ispal(n)=n=数字(n);对于(i=1,#n\2,如果(n[i]!=n[#n+1-i],返回(0));1
is(n)=如果(n<13,n>0,vecmin(应用(ispal,系数(n)[,1]))\\查尔斯·格里特豪斯四世2013年2月6日
(Python)
从症状输入isprime,素数
定义pal(n):s=str(n);返回s==s[::-1]
def ok(n):为素数(n)中的f返回全部(pal(f))
打印(列表(过滤器(好,范围(1132)))#迈克尔·布拉尼基2021年4月6日
交叉参考
囊性纤维变性。A002113号A002385号A046368号A051038号.
关键词
非n基础容易的
作者
N.J.A.斯隆1998年5月17日
状态
经核准的
第页1

搜索在0.004秒内完成

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

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

上次修改时间:美国东部夏令时2024年4月25日21:09。包含371989个序列。(在oeis4上运行。)