|
%I #10 Oct 16 2019 23:45:43
%S 0,1,4,9,16,25,36,49,64,81,121,169,196,256,289,324,361,484,529,576,
%T 625,676,729,784,841,961,1024,1089,1296,1369,1521,1681,1764,1849,1936,
%U 2025,2304,2401,2601,2704,2809,2916,3025,3136,3249,3481,3721,3969,4096,4356
%N Squares containing no pair of consecutive equal digits.
%t Select[Range[0,66]^2,FreeQ[Differences[IntegerDigits[#]],0]&] (* _Jayanta Basu_, May 31 2013 *)
%t Select[Range[0,100]^2,SequenceCount[IntegerDigits[#],{x_,x_}]==0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 08 2017 *)
%Y Cf. A043096, A000290, A050741.
%K nonn,base
%O 0,3
%A _Patrick De Geest_, Sep 15 1999
|
