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 A100829 #6 Jun 18 2025 00:53:39
%S A100829 2,5,8,10,13,18,20,25,26,29,32,37,40,41,45,50,52,53,58,61,65,72,73,74,
%T A100829 80,82,89,90,97,98,100,101,104,106,109,113,116,117,122,125,128,130,
%U A100829 137,145,146,148,149,157,160,162,164,169,173,178,180,181,185,193,194,197
%N A100829 Numbers that are a sum of two nonzero squares and not divisible by 17.
%p A100829 filter:= proc(x) local F;
%p A100829 if x mod 17 = 0 then return false fi;
%p A100829 F:= ifactors(x)[2];
%p A100829 if ormap(t -> t[1] mod 4 = 3 and t[2]::odd, F) then return false fi;
%p A100829 ormap(t -> t[1] mod 4 = 1 or (t[1]=2 and t[2]::odd), F)
%p A100829 end proc:
%p A100829 select(filter, [$1..200]); # _Robert Israel_, Jun 17 2025
%t A100829 With[{upto=200},Select[Total/@Tuples[Range[Ceiling[Sqrt[upto]]]^2,2], Mod[ #,17]!=0&&#<=upto&]]//Union (* _Harvey P. Dale_, May 18 2019 *)
%Y A100829 Cf. A000404, A098365.
%K A100829 nonn
%O A100829 1,1
%A A100829 Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Jan 06 2005
%E A100829 Definition corrected by _Robert Israel_, Jun 17 2025