login
Numbers that are a sum of two squares and not divisible by 17.
0

%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