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

Author

T. D. Noe, Aug 04 2006

Keywords

• fini
• nonn

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

Programs

Mathematica

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

Formula

Complement of A048261.