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,2

Links

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

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 *)

Crossrefs

Cf. A275817.

Sequence in context: A352832 A010654 A244335 * A245300 A228949 A048227

Adjacent sequences: A275815 A275816 A275817 * A275819 A275820 A275821

Keyword

nonn

Author

Hugo Pfoertner, Aug 10 2016

Status

approved