A145017 Squarefree positive integers k for which k-(floor(sqrt(k)))^2 is a perfect square.
1, 2, 5, 10, 13, 17, 26, 29, 34, 37, 53, 58, 65, 73, 82, 85, 97, 101, 109, 122, 130, 137, 145, 170, 173, 178, 185, 194, 197, 205, 221, 226, 229, 241, 257, 265, 281, 290, 293, 298, 305, 314, 349, 362, 365, 370, 377, 386, 397, 401, 409, 442, 445, 457, 466, 485, 493
Offset: 1
Keywords
Links
- Andrew Howroyd, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Range@ 500, And[SquareFreeQ@ #, IntegerQ@ Sqrt[# - Floor[Sqrt@ #]^2]] &] (* Michael De Vlieger, Jan 12 2020 *)
-
PARI
is(n)={issquarefree(n) && issquare(n-sqrtint(n)^2)} \\ Andrew Howroyd, Jan 12 2020
Extensions
Missing a(40) inserted and terms a(42) and beyond from Andrew Howroyd, Jan 12 2020
Comments