OFFSET
0,1
MATHEMATICA
Table[Module[{k=1}, While[SequenceCount[IntegerDigits[3^k], {n, n, n}]<1, k++]; k], {n, 0, 9}]
CROSSREFS
KEYWORD
nonn,base,fini,full,easy
AUTHOR
Harvey P. Dale, Nov 28 2023
STATUS
approved