

A275818


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


2



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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: A305035 A010654 A244335 * A245300 A228949 A048227
Adjacent sequences: A275815 A275816 A275817 * A275819 A275820 A275821


KEYWORD

nonn


AUTHOR

Hugo Pfoertner, Aug 10 2016


STATUS

approved



