A236674 Exponents of powers of 3 that do not contain all ten decimal digits.
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 40, 41, 42, 43, 44, 46, 49, 50, 51, 52, 54, 55, 56, 58, 59, 66, 68, 75, 81, 84, 91, 100, 101, 104, 106
Offset: 1
Examples
3^44 = 984770902183611232881 does not have all ten decimal digits (the 5 is missing), thus 44 is a member of this sequence.
Programs
-
Mathematica
Select[Range[0, 1000], Union[IntegerDigits[3^#]] != Range[0, 9] &] (* T. D. Noe, Jan 29 2014 *)
-
Python
def PanDigNot(x): a = '1234567890' for n in range(10**4): count = 0 for i in a: if str(x**n).count(i) > 0: count += 1 if count < len(a): print(n)
Comments