%I#31 2022年7月3日04:52:50
%S 2,5,2,13,2,5,13,41,2,5,17,29,61,2113,25,13,29181,2,51,13,17,53,97,
%T 2313,2,5,13,17,37,41,53,73,8910917421613,2,5,7137761,2,5,13,
%U 17,29,37,41,61,73149281353461541101312011301,217
%N按行读取的三角形:第N行按递增顺序给出两个素数A002496(N)和A002495(N+1)之间所有形式为k^2+1的复合数的素数除数。
%C序列图中可以显示以{2,5,…}开头的各种推测无限子序列。如果形式n^2+1的素数是有限的,那么图的最后一个子序列突然变成A002144(n)并集{2}(奇数勾股素数为2)。在这种情况下,图形的中断形式将消失。但这种情况极不可能发生。
%H Michel Lagneau,<a href=“/A211175/b211175.txt”>不规则三角形的行n=2..557,扁平</a>
%e除数的不规则三角形是:
%e[2,5]
%e[2,13]
%e[2,5,13,41]
%e[2,5,17,29,61]
%e[2113]
%e[2,5,13,17,53,97]
%e。。。
%e第1行为空,因为在A002496(1)=2和A002495(2)=5之间没有形式为k^2+1的数字。
%e行2=[2,5]列出素数A002496(2)和A002495(3)之间3^2+1的除数;
%e行3=[2,13]列出素数A002496(3)和A002495(4)之间5^2+1的除数;
%e行4=[2,5,13,41]列出素数A002496(4)和A002495(5)之间7^2+1,8^2+1和9^2+1的除数。
%p with(numtheory):lst:={}:对于n from 2 to 150 do:p:=n^2+1:x:=因子集(p):lsd:=lst联合x:如果type(p,prime)=true,则打印(lst减去{p}):ls:={}:else fi:od:
%Y参见A002144、A002496、A002522、A134406、A181413、A206400。
%K nonn,标签
%氧2,1
%2013年2月1日,拉格瑙市