%I #13 Jul 29 2017 04:23:43
%S 2,3,5,17,37,101,197,257,401,577,677,1297,1601,2917,3137,4357,5477,
%T 7057,8101,8837,12101,13457,14401,15377,15877,16901,17957,21317,22501,
%U 24337,25601,28901,30977,32401,33857,41617,42437,44101,50177
%N Primes which are within 1 of a square number.
%H David A. Corneth, <a href="/A163588/b163588.txt">Table of n, a(n) for n = 1..10000</a> (First 1000 terms from G. C. Greubel)
%F {3} Union A002496. - _R. J. Mathar_, Aug 06 2009
%t Union[{3}, Select[Range[100]^2 + 1, PrimeQ]] (* _G. C. Greubel_, Jul 28 2017 *)
%K nonn
%O 1,1
%A _Gaurav Kumar_, Jul 31 2009