编辑
经核准的
Charles R Greathouse IV,<a href=“/A271184型/b271184.txt“>n表,n=1..10000时为a(n)</a>
检验过的
提出
选择[范围[10^6],然后[整数Q@Sqrt[#-1],解析[Exists[{x,y},Reduce[#==x^2+xy+y^2,{x,y},Integers]]&](*迈克尔·德弗利格2016年4月1日*)
对于(n个k=0,2000,如果(是(k=n个=k^2+1),打印1(k, n个, ", ")));
对于(n=1, 0, 2000,如果(是(k=n^2+1),打印1(k,“,”));