%I #8 Oct 22 2016 09:35:41
%S 17,19,23,25,29,35,37,47,49,59,67,73,89,107,115,127,145,149,173,179,
%T 199,217,227,257,259,289,305,323,355,359,397,409,437,467,479,523,529,
%U 569,595,617,665,667,719,739,773,817,829,887,899,947,985,1009,1073
%N Numbers of form 17+n^2+n or 17+2*n^2.
%H Harvey P. Dale, <a href="/A054796/b054796.txt">Table of n, a(n) for n = 1..1000</a>
%t Module[{upto=410000},Select[Flatten[Table[{17+n^2+n,17+2n^2},{n,0, Ceiling[ (Sqrt[4*upto-67]-1)/2]}]]//Union,#<=upto&]] (* _Harvey P. Dale_, Oct 22 2016 *)
%Y A052293.
%K nonn
%O 1,1
%A Stuart M. Ellerstein (ellerstein(AT)aol.com), Apr 27 2000
%E More terms from _James A. Sellers_, Apr 28 2000