A158037 A106044 sorted and duplicates removed.

1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 23, 24, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78

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.

Links

Table of n, a(n) for n=1..72.

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

Cf. A106044, A104492, A056892

Sequence in context: A364542 A343107 A004745 * A332109 A287519 A307646

Adjacent sequences: A158034 A158035 A158036 * A158038 A158039 A158040

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Mar 11 2009

Status

approved