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 A070254 #14 Aug 29 2018 06:12:59 %S A070254 1,4,9,100,324,576,4225,5776,10000,36864,42025,1000000,3055504, %T A070254 3640464,5597956,8803089,32855824,100000000,360696064,422919225, %U A070254 10000000000,30485858404,30536863504,32154945124,59080108096,86310801369,304816618404,1000000000000,3490500050944 %N A070254 Perfect squares one more than a palindrome. %C A070254 All even powers of 10 are members of both A070254 and A027720. %H A070254 Giovanni Resta, <a href="/A070254/b070254.txt">Table of n, a(n) for n = 1..53</a> %F A070254 a(n) = A070253(n)^2 = A028504(n) + 1. - _Giovanni Resta_, Aug 29 2018 %t A070254 Do[ If[a = IntegerDigits[n^2 - 1]; a == Reverse[a], Print[n^2]], {n, 1, 10^6}] %t A070254 Select[Range[300000]^2,PalindromeQ[#-1]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 06 2018 *) %Y A070254 Cf. A028504, A027719, A027720, A070253. %K A070254 nonn,base %O A070254 1,2 %A A070254 _Amarnath Murthy_, May 06 2002 %E A070254 Edited by _Jason Earls_ and _Robert G. Wilson v_, May 08 2002 %E A070254 Offset changed by and more terms from _Giovanni Resta_, Aug 28 2018