A050746 Numbers k such that the decimal expansion of k^7 contains no pair of consecutive equal digits.
0, 1, 2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 14, 15, 16, 19, 24, 25, 26, 27, 28, 29, 32, 36, 46, 52, 56, 57, 61, 62, 63, 71, 74, 79, 82, 83, 91, 101, 107, 111, 125, 132, 135, 136, 147, 149, 152, 153, 154, 159, 161, 163, 171, 173, 175, 194, 204, 207, 211, 212, 221, 225, 227
Offset: 1
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Crossrefs
Cf. A050754.
Programs
-
Maple
filter:= proc(n) local L; L:= convert(n^7,base,10); not member(0, L[1..-2]-L[2..-1]) end proc: select(filter, [$0..1000]); # Robert Israel, Jun 23 2019