cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A264890 Integers k such that k! + 1 is the sum of 2 nonzero squares.

This page as a plain text file.
%I A264890 #16 May 22 2021 09:05:14
%S A264890 0,1,4,8,11,12,17,25,26,27,28,29,37,38,41,45,48,54,60,67,71,73,75,77,
%T A264890 88,92,94,114,115,116,119,133
%N A264890 Integers k such that k! + 1 is the sum of 2 nonzero squares.
%e A264890 a(3) = 4 because 4! + 1 = 4^2 + 3^2.
%t A264890 Flatten@ Position[Map[Length, Map[Map[Length, PowersRepresentations[#, 2, 2] &@(#! + 1) /. 0 -> Nothing] &, Range[0, 48]] /. 1 -> Nothing], n_ /; n > 0] - 1 (* _Michael De Vlieger_, Nov 28 2015 *)
%o A264890 (PARI) is(n) = { for(i=1, #n=factor(n!+1)~%4, n[1, i]==3 && n[2, i]%2 && return); n && (vecmin(n[1, ])==1 || (n[1, 1]==2 && n[2, 1]%2)) }
%Y A264890 Cf. A000404, A038507, A264665, A271186.
%K A264890 nonn,more
%O A264890 1,3
%A A264890 _Altug Alkan_, Nov 27 2015
%E A264890 a(25)-a(32) from _Jinyuan Wang_, May 22 2021