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 A277948 #26 Sep 08 2022 08:46:17 %S A277948 4,144,324,400,441,1024,1444,2304,2401,10404,14400,23104,32041,32400, %T A277948 33124,40000,40401,44100,101124,102400,103041,110224,114244,121104, %U A277948 131044,144400,203401,204304,213444,230400,232324,240100,300304,301401,421201,1004004 %N A277948 Squares whose largest decimal digit is 4. %C A277948 A subsequence of A158082, in turn a subsequence of A000290. %H A277948 Colin Barker, <a href="/A277948/b277948.txt">Table of n, a(n) for n = 1..1000</a> %F A277948 a(n) = A277961(n)^2. - _M. F. Hasler_, Nov 12 2017 %F A277948 Intersection of A000290 and A277966. - _M. F. Hasler_, Nov 15 2017 %t A277948 Select[Range[1100]^2,Max[IntegerDigits[#]]==4&] (* _Harvey P. Dale_, Jul 01 2017 *) %o A277948 (PARI) L=List(); for(n=1, 10000, if(vecmax(digits(n^2))==4, listput(L, n^2))); Vec(L) %o A277948 (Magma) [n^2: n in [1..1000000] | Maximum(Intseq(n^2)) eq 4]; // _Vincenzo Librandi_, Nov 06 2016 %Y A277948 Cf. A000290 (the squares). %Y A277948 Cf. A277961 (square roots of these terms). %Y A277948 Cf. A277946, A277947, A295015, ..., A295019 (analog for largest digit = 2, 3, 5, ..., 9). %Y A277948 Cf. A058412, A058411, ..., A058474 and A136808, A136809, ..., A137147 for other restrictions on digits of squares. %K A277948 nonn,base %O A277948 1,1 %A A277948 _Colin Barker_, Nov 05 2016