Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A050750
Cubes containing no pair of consecutive equal digits.
2
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,3
FORMULA
a(n) = A050742(n)^3. - Andrew Howroyd, Aug 11 2024
MATHEMATICA
Select[Range[0, 60]^3, And@@(First[#]!=Last[#]&/@Partition[IntegerDigits[#], 2, 1])&] (* Harvey P. Dale, Feb 08 2011 *)
CROSSREFS
Intersection of A043096 and A000578.
Cf. A050742.
Sequence in context: A030295 A052045 A014187 * A100571 A125084 A052048
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1999
EXTENSIONS
Offset corrected by Andrew Howroyd, Aug 11 2024
STATUS
approved