A367738 a(n) = k is the smallest exponent k such that at least 3 equal decimal digits "n,n,n" appear in the decimal representation of 3^k (n=0,1,...,9).
148, 93, 148, 119, 55, 33, 34, 112, 32, 35
Offset: 0
Programs
-
Mathematica
Table[Module[{k=1},While[SequenceCount[IntegerDigits[3^k],{n,n,n}]<1,k++];k],{n,0,9}]