OFFSET
1,2
COMMENTS
All natural numbers except squares, 3^2=9, 4^2=16, 5^2=25, 6^2=36, 7^2=49, 8^2=64, ... are missing from the current sequence.
MATHEMATICA
lst={}; Do[p=Prime[n]; s=p^(1/2); f=Floor[s]; a=(f+1)^2; d=a-p; AppendTo[lst, d], {n, 7!}]; Take[Union[lst], 5! ]
(Floor[Sqrt[#]]+1)^2-#&/@Prime[Range[500]]//Union (* Harvey P. Dale, Aug 02 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 11 2009
STATUS
approved