A121518 Numbers that are not the sum of the squares of distinct primes.

1, 2, 3, 5, 6, 7, 8, 10, 11, 12, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 26, 27, 28, 30, 31, 32, 33, 35, 36, 37, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 50, 51, 52, 54, 55, 56, 57, 59, 60, 61, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 75, 76, 77, 79, 80, 81, 82, 84, 85, 86

Offset

1,2

Comments

There are 2438 terms, the largest of which is 17163.

References

See A048261.

Links

T. D. Noe, Table of n, a(n) for n = 1..2438

Formula

Complement of A048261.

Mathematica

s={0}; Do[p=Prime[n]; s=Union[s, s+p^2], {n, PrimePi[140]}]; s=Select[s, 0<#<Prime[PrimePi[140]]^2&]; Complement[Range[s[[ -1]]], s]

Crossrefs

Sequence in context: A191894 A284955 A093480 * A287770 A039080 A093435

Adjacent sequences: A121515 A121516 A121517 * A121519 A121520 A121521

Keyword

fini,nonn

Author

T. D. Noe, Aug 04 2006

Status

approved