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 A081645 #5 Nov 21 2013 12:47:59 %S A081645 37,40,45,52,61,72,73,76,88,97,108,109,112,117,124,133,145,148,153, %T A081645 160,180,181,184,189,205,216,217,220,232,241,252,253,261,268,277,288, %U A081645 292,297,304,313,325,328,333,340,349,360,364,369,376,385,396,397,405,412 %N A081645 Integers congruent to 0, 1, 4, 9, 16 or 25 (mod 36) which are not squares. %D A081645 Mark A. Herkommer, Number Theory, A Programmer's Guide, McGraw-Hill, New York, 1999, page 315. %t A081645 Select[ Range[420], (Mod[ #, 36] == 0 || Mod[ #, 36] == 1 || Mod[ #, 36] == 4 || Mod[ #, 36] == 9 || Mod[ #, 36] == 16 || Mod[ #, 36] == 25) && !IntegerQ[ Sqrt[ # ]] & ] %t A081645 Select[Range[450],!IntegerQ[Sqrt[#]]&&MemberQ[{0,1,4,9,16,25}, Mod[#,36]] &] (* _Harvey P. Dale_, Sep 25 2011 *) %K A081645 easy,nonn %O A081645 1,1 %A A081645 _Robert G. Wilson v_, Mar 26 2003