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.
%I A363282 #10 Jun 12 2023 11:51:07 %S A363282 1,4,5,9,13,16,25,36,41,49,61,64,81,85,100,113,121,144,145,169,181, %T A363282 196,221,225,256,265,289,313,324,361,365,400,421,441,481,484,529,545, %U A363282 576,613,625,676,685,729,761,784,841,900,925,961,1013,1024,1089,1105 %N A363282 Squares (A000290) and centered squares (A001844), in increasing order (i.e., sorted and without duplicates). %C A363282 This sequence consists of the numbers in A363267 arranged in increasing order. Unlike A363267, this is not a linear recurrence sequence; see A363319. %t A363282 c[1] = 1; c[2] = 1; %t A363282 c[n_] := If[OddQ[n], c[n - 2] + n, 2 c[n - 1] - n + 1] %t A363282 u = Table[c[n], {n, 1, 120}] (* A363267 *) %t A363282 Union[u] (* A363282 *) %Y A363282 Cf. A000290, A001844, A363267, A363319. %K A363282 nonn %O A363282 1,2 %A A363282 _Clark Kimberling_, May 25 2023 %E A363282 Definition corrected by _N. J. A. Sloane_, Jun 12 2023