%I A065377
%S A065377 2,5,13,31,37,61,127,379,439,571,829,991,1549,3319,7549
%N A065377 Primes not of the form p + k^2, with p prime and k > 0.
%t A065377 Do[ k = 1; p = Prime[n]; While[k^2 < p && !PrimeQ[p - k^2], k++ ]; If[k^2 
               > p, Print[p]], {n, 1, 10^6} ]
%Y A065377 A000040-Complement of A065376.
%Y A065377 Sequence in context: A116699 A054127 A018012 this_sequence A077278 A073683 
               A098501
%Y A065377 Adjacent sequences: A065374 A065375 A065376 this_sequence A065378 A065379 
               A065380
%K A065377 nonn
%O A065377 0,1
%A A065377 Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Nov 03 2001
%E A065377 Probably finite and 7549 is the last entry. - Robert G. Wilson v (rgwv(AT)rgwv.com), 
               Nov 05 2001