|
| |
|
|
A018825
|
|
Numbers that are not the sum of 2 nonzero squares.
|
|
9
| |
|
|
1, 3, 4, 6, 7, 9, 11, 12, 14, 15, 16, 19, 21, 22, 23, 24, 27, 28, 30, 31, 33, 35, 36, 38, 39, 42, 43, 44, 46, 47, 48, 49, 51, 54, 55, 56, 57, 59, 60, 62, 63, 64, 66, 67, 69, 70, 71, 75, 76, 77, 78, 79, 81, 83, 84, 86, 87, 88, 91, 92, 93, 94, 95, 96, 99, 102, 103, 105, 107, 108, 110
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| A025426(a(n)) = 0; A063725(a(n)) = 0. [Reinhard Zumkeller, Aug 16 2011]
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=1..10000
Index entries for sequences related to sums of squares
|
|
|
MATHEMATICA
| q=13; q2=q^2+1; lst={}; Do[Do[z=a^2+b^2; If[z<=q2, AppendTo[lst, z]], {b, a, 1, -1}], {a, q}]; lst; u=Union@lst; Complement[Range[q^2], u] [From Vladimir Orlovsky (4vladimir(AT)gmail.com), May 30 2010]
|
|
|
PROG
| (Haskell)
import Data.List (elemIndices)
a018825 n = a018825_list !! (n-1)
a018825_list = tail $ elemIndices 0 a025426_list
-- Reinhard Zumkeller, Aug 16 2011
|
|
|
CROSSREFS
| Complement of A000404.
Cf. A022544, A081324, A000404, A004431.
Sequence in context: A123540 A065313 A103566 * A059555 A186539 A054385
Adjacent sequences: A018822 A018823 A018824 * A018826 A018827 A018828
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| David W. Wilson (davidwwilson(AT)comcast.net)
|
| |
|
|
