OFFSET
0,2
MATHEMATICA
Select[7^Range[0, 200], !MemberQ[Differences[IntegerDigits[#]], 0]&] (* Vincenzo Librandi, Jan 22 2026 *)
PROG
(Magma) [7^n : n in [0..200] | not exists{i : i in [1..#d-1] | d[i+1] - d[i] eq 0} where d is Intseq(7^n) ]; // Vincenzo Librandi, Jan 22 2026
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1999
STATUS
approved
