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.

A330174 Number of primitive Pythagorean triangles with sum of legs n.

This page as a plain text file.
%I A330174 #18 Feb 20 2020 10:02:39
%S A330174 0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,
%T A330174 0,0,0,0,0,0,1,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
%U A330174 0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,2
%N A330174 Number of primitive Pythagorean triangles with sum of legs n.
%H A330174 Ray Chandler, <a href="/A330174/b330174.txt">Table of n, a(n) for n = 1..10000</a>
%t A330174 f[n_]:=Block[{ps,sps}, ps=First/@FactorInteger[n];
%t A330174 sps=Select[ps,MemberQ[{1,7},Mod[#,8]]&];
%t A330174 If[sps==ps&&n!=1,2^(Length[ps]-1),0]];  Table[f[n],{n,120}]
%Y A330174 Cf. A058529, A198441.
%K A330174 nonn
%O A330174 1,119
%A A330174 _Ray Chandler_, Feb 15 2020