%I A138494
%S A138494 1,3,4,5,7,8,11,13,13,14,15,19,20,21,21,23,26,29,29,28,35,33,34,37,37,
%T A138494 41,40,41,45,44,51,49,51,54,49,57,54,63,59,56,65,65,71,68,65,73,72,77,
%U A138494 75,79,78,75,83,80,91,85,89,88,91,95,94,97,99,96,99,99,105,110,103,109
%N A138494 a and b are integers > 0, aa + bb = cc. The number of integer solutions 
               for a,b between successive c integers. Integer solutions for c (Pythagorean 
               triples) are not included.
%o A138494 (Qbasic) OPEN "PYTH.TXT" FOR OUTPUT AS #1
%o A138494 FOR C = 1 TO 100
%o A138494 N = 0
%o A138494 FOR A = 1 TO C
%o A138494 FOR B = 1 TO C
%o A138494 D = SQR(A * A + B * B)
%o A138494 IF D > C AND D < C + 1 THEN N = N + 1
%o A138494 NEXT B
%o A138494 NEXT A
%o A138494 PRINT #1, N;
%o A138494 NEXT C
%o A138494 CLOSE
%Y A138494 Sequence in context: A137292 A047500 A131613 this_sequence A111801 A108372 
               A066542
%Y A138494 Adjacent sequences: A138491 A138492 A138493 this_sequence A138495 A138496 
               A138497
%K A138494 easy,nonn
%O A138494 1,2
%A A138494 Rick Walcott (rick(AT)campbellsci.com), May 09 2008