|
%I #5 Jun 22 2013 08:44:44
%S 1,4,5,7,8,9,10,12,13,14,15,16,17,19,20,21,22,23,24,25,26,28,29,30,31,
%T 32,33,34,35,36,37,39,40,41,42,43,44,45,46,47,48,49,50,52,53,54,55,56,
%U 57,58,59,60,61,62,63,64,65,67,68,69,70,71,72,73,74,75,76,77,78,79,80
%N Positive numbers not of the form n^2+2.
%C Complement of A059100, and essentially also of A010000.
%F A000027 \ A059100.
%F a(n) = n + 1 + floor(sqrt(n-1) + 1/2), for n >= 2.
%t With[{upto=80},Complement[Range[upto],Range[0,Floor[Sqrt[upto-2]]]^2+2]] (* _Harvey P. Dale_, Jun 22 2013 *)
%K nonn,easy
%O 1,2
%A _Jaroslav Krizek_, Aug 14 2009
%E Redefined for simplicity by removing 2, _R. J. Mathar_, Aug 31 2009
|
