cp's OEIS Frontend

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.

A081645 Integers congruent to 0, 1, 4, 9, 16 or 25 (mod 36) which are not squares.

This page as a plain text file.
%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