A050749 Squares containing no pair of consecutive equal digits.

0, 1, 4, 9, 16, 25, 36, 49, 64, 81, 121, 169, 196, 256, 289, 324, 361, 484, 529, 576, 625, 676, 729, 784, 841, 961, 1024, 1089, 1296, 1369, 1521, 1681, 1764, 1849, 1936, 2025, 2304, 2401, 2601, 2704, 2809, 2916, 3025, 3136, 3249, 3481, 3721, 3969, 4096, 4356

Offset

0,3

Links

Table of n, a(n) for n=0..49.

Mathematica

Select[Range[0, 66]^2, FreeQ[Differences[IntegerDigits[#]], 0]&] (* Jayanta Basu, May 31 2013 *)
Select[Range[0, 100]^2, SequenceCount[IntegerDigits[#], {x_, x_}]==0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 08 2017 *)

Crossrefs

Cf. A043096, A000290, A050741.

Sequence in context: A111704 A052041 A018884 * A096599 A016073 A115743

Adjacent sequences: A050746 A050747 A050748 * A050750 A050751 A050752

Keyword

nonn,base

Author

Patrick De Geest, Sep 15 1999

Status

approved