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: 1

Author

Patrick De Geest, Sep 15 1999

Keywords

• nonn
• base

Crossrefs

Intersection of A043096 and A000578.

Cf. A050742.

Programs

Mathematica

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

Formula

a(n) = A050742(n)^3. - Andrew Howroyd, Aug 11 2024

Extensions

Offset corrected by Andrew Howroyd, Aug 11 2024