1,1

Harvey P. Dale, Table of n, a(n) for n = 1..1000

lst={}; Do[p=Prime[n]; s=p^(1/2); f=Floor[s]; a=(f+1)^2; d=a-p; AppendTo[lst, d], {n, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Mar 11 2009 *)

(Floor[Sqrt[#]]+1)^2-#&/@Prime[Range[90]] (* Harvey P. Dale, Feb 08 2013 *)

Sequence in context: A054269 A086450 A270439 * A124896 A008742 A029136

Adjacent sequences: A106041 A106042 A106043 * A106045 A106046 A106047

nonn

Zak Seidov, May 06 2005

approved