A050750 Cubes containing no pair of consecutive equal digits.

0, 1, 8, 27, 64, 125, 216, 343, 512, 729, 1728, 2197, 4096, 4913, 5832, 6859, 9261, 10648, 12167, 13824, 15625, 17576, 19683, 21952, 24389, 29791, 32768, 35937, 39304, 42875, 50653, 54872, 59319, 68921, 79507, 85184, 103823, 132651, 140608

Offset

0,3

Links

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

Mathematica

Select[Range[0, 60]^3, And@@(First[#]!=Last[#]&/@Partition[IntegerDigits[#], 2, 1])&]  (* Harvey P. Dale, Feb 08 2011 *)

Crossrefs

Cf. A043096, A000578, A050742.

Sequence in context: A030295 A052045 A014187 * A100571 A125084 A052048

Adjacent sequences: A050747 A050748 A050749 * A050751 A050752 A050753

Keyword

nonn,base

Author

Patrick De Geest, Sep 15 1999

Status

approved