cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A275818 #10 Aug 14 2016 23:33:23
%S A275818 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,
%T A275818 31,21,16,27,11,28,17,23,35,71,79,43,31,25,19,45,13,33,20,27,34,48,97,
%U A275818 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
%N A275818 Smallest number k such that k^2 matches the conditions of A275817.
%H A275818 Hugo Pfoertner, <a href="/A275818/b275818.txt">Table of n, a(n) for n = 0..1000</a>
%t A275818 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],
%t A275818 k_ /; IntegerQ@ Sqrt@ k] == 0, s++]; {n, s}, {n, 0, 120}] // Flatten (* _Michael De Vlieger_, Aug 14 2016 *)
%Y A275818 Cf. A275817.
%K A275818 nonn
%O A275818 0,2
%A A275818 _Hugo Pfoertner_, Aug 10 2016