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.
%I A124982 #13 Mar 12 2020 09:04:38
%S A124982 0,1,4,8,9,10,16,18,20,26,32,34,36,40,45,49,52,58,64,68,72,74,80,81,
%T A124982 82,90,98,104,106,116,117,121,122,128,136,144,146,148,153,160,162,164,
%U A124982 178,180,194,196,202,208,212,218,226,232,234,242,244,245,256,261,272,274
%N A124982 Nonprime numbers with a unique partition as a sum of 2 squares x^2 + y^2.
%H A124982 Amiram Eldar, <a href="/A124982/b124982.txt">Table of n, a(n) for n = 1..10000</a>
%F A124982 A000161(a(n)) = 1. - _R. J. Mathar_, Nov 29 2006
%t A124982 Select[Range[0, 300], !PrimeQ[#] && Length @ PowersRepresentations[#, 2, 2] == 1 &] (* _Amiram Eldar_, Mar 12 2020 *)
%o A124982 (PARI) A000161(n)={ local(cnt=0,y2) ; for(x=0,floor(sqrt(n)), y2=n-x^2 ; if( y2>=x^2 && issquare(y2), cnt++ ; ) ; ) ; return(cnt) ; } isA124982(n)= { if( isprime(n), return(0), if(A000161(n)==1, return(1), return(0) ) ) ; } { for(n=0,300, if( isA124982(n), print1(n,", ") ; ) ; ) ; } \\ _R. J. Mathar_, Nov 29 2006
%Y A124982 Cf. A000161, A002145.
%K A124982 nonn
%O A124982 1,3
%A A124982 _Artur Jasinski_, Nov 16 2006
%E A124982 Corrected and extended by _R. J. Mathar_, Nov 29 2006