|
%I #3 May 18 2019 11:09:04
%S 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 80,82,89,90,97,98,100,101,104,106,109,113,116,117,122,125,128,130,
%U 137,145,146,148,149,157,160,162,164,169,173,178,180,181,185,193,194,197
%N Numbers that are a sum of two squares and not divisible by 17.
%t With[{upto=200},Select[Total/@Tuples[Range[Ceiling[Sqrt[upto]]]^2,2], Mod[ #,17]!=0&&#<=upto&]]//Union (* _Harvey P. Dale_, May 18 2019 *)
%Y Cf. A000404, A098365.
%K nonn
%O 1,1
%A Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Jan 06 2005
|
