A275818 Smallest number k such that k^2 matches the conditions of A275817.

1, 4, 3, 7, 11, 7, 5, 8, 17, 22, 13, 10, 7, 11, 15, 31, 37, 21, 13, 22, 9, 14, 19, 24, 49, 56, 31, 21, 16, 27, 11, 28, 17, 23, 35, 71, 79, 43, 31, 25, 19, 45, 13, 33, 20, 27, 34, 48, 97, 106, 57, 36, 29, 22, 37, 52, 15, 38, 23, 54, 31, 47, 63, 127, 137, 73, 49, 41, 33, 25, 42, 59, 17, 43, 69, 26, 35, 44, 53, 80, 161

Offset: 0

Author

Hugo Pfoertner, Aug 10 2016

Keywords

• nonn

Links

• Hugo Pfoertner, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A275817.

Programs

Mathematica

Sqrt@ Select[Range[#1 #2^2 + 1, (#1 + 1) #2^2 - 1], IntegerQ@ Sqrt@ # &] & @@ # & /@ Table[s = 1; While[Count[Range[n s^2 + 1, (n + 1) s^2 - 1],
k_ /; IntegerQ@ Sqrt@ k] == 0, s++]; {n, s}, {n, 0, 120}] // Flatten (* Michael De Vlieger, Aug 14 2016 *)