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 A050749 #14 Aug 11 2024 13:59:55
%S A050749 0,1,4,9,16,25,36,49,64,81,121,169,196,256,289,324,361,484,529,576,
%T A050749 625,676,729,784,841,961,1024,1089,1296,1369,1521,1681,1764,1849,1936,
%U A050749 2025,2304,2401,2601,2704,2809,2916,3025,3136,3249,3481,3721,3969,4096,4356
%N A050749 Squares containing no pair of consecutive equal digits.
%F A050749 a(n) = A050741(n)^2. - _Andrew Howroyd_, Aug 11 2024
%t A050749 Select[Range[0,66]^2,FreeQ[Differences[IntegerDigits[#]],0]&] (* _Jayanta Basu_, May 31 2013 *)
%t A050749 Select[Range[0,100]^2,SequenceCount[IntegerDigits[#],{x_,x_}]==0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 08 2017 *)
%Y A050749 Intersection of A043096 and A000290.
%Y A050749 Cf. A050741.
%K A050749 nonn,base
%O A050749 1,3
%A A050749 _Patrick De Geest_, Sep 15 1999
%E A050749 Offset corrected by _Andrew Howroyd_, Aug 11 2024