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 A254959 #11 Apr 29 2019 11:59:12 %S A254959 1,4,9,676,841,1444,4225,24025,42025,42436,43264,66049,109561,119716, %T A254959 155236,239121,244036,248004,252004,335241,355216,362404,373321, %U A254959 643204,664225,703921,717409,751689,790321,802816,840889,850084,851929,1110916,1263376,1292769,1334025,1361889,1366561,1371241,1413721,1522756,1718721 %N A254959 Squares not divisible by 10 with digits d_1, d_2, ... d_k such that d_1^2 + ... + d_k^2 is a square. %C A254959 Any one of these terms can have an even number of 0's following the term. Thus, the numbers ending in 0 have been omitted. %H A254959 Harvey P. Dale, <a href="/A254959/b254959.txt">Table of n, a(n) for n = 1..1000</a> %t A254959 Select[Range[1500]^2,Mod[#,10]!=0&&IntegerQ[Sqrt[Total[ IntegerDigits[ #]^2]]]&] (* _Harvey P. Dale_, Apr 29 2019 *) %o A254959 (PARI) for(n=0,10^3,if(n%10,N=n^2;d=digits(N);s=0;for(i=1,#d,s+=d[i]^2);if(issquare(s),print1(N,", ")))) %Y A254959 Cf. A000290, A254958. %K A254959 nonn,base %O A254959 1,2 %A A254959 _Derek Orr_, Feb 11 2015