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 A373329 #19 Jun 02 2024 13:24:58 %S A373329 0,1,3,6,11,18,25,35,45,57,71,85,102,119,138,159,181,204,229,255,283, %T A373329 312,342,374,407,442,478,515,554,595,636,679,724,770,817,866,916,968, %U A373329 1021,1075,1131,1189,1247,1307,1369,1432,1496,1562,1629,1698,1768,1839,1912 %N A373329 a(n)^2 is the greatest square not exceeding A000217(n^2). %H A373329 Michael De Vlieger, <a href="/A373329/b373329.txt">Table of n, a(n) for n = 0..10000</a> %F A373329 a(n) = A061288(n^2). - _Alois P. Heinz_, Jun 01 2024 %p A373329 a:= n-> floor(sqrt((t-> t*(t+1)/2)(n^2))): %p A373329 seq(a(n), n=0..52); # _Alois P. Heinz_, Jun 01 2024 %t A373329 Array[Floor@ Sqrt[(#^4 + #^2)/2] &, 53, 0] (* _Michael De Vlieger_, Jun 02 2024 *) %o A373329 (PARI) a(n) = sqrtint((n^4+n^2)/2) %Y A373329 Cf. A000217, A000290, A001109 (subsequence), A001110, A001333, A037270, A061288. %K A373329 nonn %O A373329 0,3 %A A373329 _Hugo Pfoertner_, Jun 01 2024