登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A283148 按行读取的不规则三角形,其中第n行列出整数x,使得商x/(x的最小素数因子)^2等于n,对于n>=2。 1

%我

%第8,12,27,16,20,45125,24,28,63175343,32,36,81,40,44,992755391331,

%电话:48,5211732563715732197,56,60135,64,6815342583320572873,

%U 4913,72,761714759312229932154916859,80,84189,88,92207751127278338876647830312167

%N不规则三角形,由第N行列出整数x,使商x/(x的最小素数因子)^2等于N,即N>=2。

%H Michel Marcus,<a href=“/A283148/b283148.txt”>行n=2..100,三角形,扁平</a>

%安娜·雷奇曼,<a href=“http://images.math.cnrs.fr/Fevrier-2017-4e-defi.html“>Février 2017,4e défi</a>,数学图像,CNRS,2017年。

%e三角形开始:

%e 8;

%E12、27;

%e 16,

%e 20、45、125;

%e 24;

%鄂28、63、175、343;

%e 32;

%e 36,81;

%e 40;

%e 44、99、275、539、1331;

%e 48;

%e 52、117、325、637、1573、2197;

%e。。。

%t Table[Select[Range[n^3],#/(factoranteger[#][[1,1]])^2==n&],{n,2,23}]//展平(*u Michael De Vlieger,2017年3月2日*)

%o(PARI)行(n)={vn=[];对于(k=2,n^3,if(!(k%(p=factor(k)[1,1]^2))&&(k/p==n),vn=concat(vn,k)););vn;}

%o tabf(nn)=for(n=2,nn,打印(第(n)行));\ \_米歇尔·马库斯,2017年3月3日

%Y比照A055396(第n行的项数)。

%参见A126773、A283050、A283069、A283071。

%不,塔夫

%氧2,1

%2017年3月1日

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

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

上次修改时间:2021年10月28日13:26。包含348329个序列。(运行在oeis4上。)