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

1,3

Links

Table of n, a(n) for n=1..50.

Formula

a(n) = A050741(n)^2. - Andrew Howroyd, Aug 11 2024

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

Intersection of A043096 and A000290.

Cf. 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

Extensions

Offset corrected by Andrew Howroyd, Aug 11 2024

Status

approved