A176766 - OEIS

%I #12 Apr 03 2024 17:14:25

%S 10077696,1,216,36,46656,46656,6,7776,2176782336,1296,10077696,

%T 2821109907456,1296,13060694016,6140942214464815497216,

%U 101559956668416,216,60466176,470184984576,21936950640377856,170581728179578208256,216

%N Smallest power of 6 whose decimal expansion contains n.

%C This is to 6 as A176763 is to 3 and as A030001 is to 2.

%H Paolo Xausa, <a href="/A176766/b176766.txt">Table of n, a(n) for n = 0..10000</a>

%F a(n) = MIN{A000400(i) such that n in decimal representation is a substring of A000400(i)}.

%F a(n) = 6^A062523(n). - _Michel Marcus_, Sep 30 2014

%e a(1) = 1 because 6^0 = 1 has "1" as a substring (not a proper substring, though).

%e a(2) = 216 because 6^3 = 216 has "2" as a substring.

%e a(3) = 36 because 6^2 = 36 has "3" as a substring.

%t A176766[n_] := Block[{k = -1}, While[StringFreeQ[IntegerString[6^++k], IntegerString[n]]]; 6^k]; Array[A176766, 50, 0] (* _Paolo Xausa_, Apr 03 2024 *)

%Y Cf. A000400, A030001, A176763, A176764-A176773.

%K base,easy,nonn

%O 0,1

%A _Jonathan Vos Post_, Apr 25 2010

%E Corrected and extended by _Sean A. Irvine_ and _Jon E. Schoenfield_, May 05 2010

%E a(0) prepended by _Paolo Xausa_, Apr 03 2024