OFFSET
1,3
COMMENTS
a(n) > 0 for n >= 7 since 13 is n written in base n-3.
The only perfect k-th powers (k >= 2) that can appear in this sequence are 2^k and 3^k with k a prime number.
LINKS
Nathan Fox, Table of n, a(n) for n = 1..10000
MATHEMATICA
Table[SelectFirst[Range[4, 10^3], DigitCount[n, #, 3] > 0 &], {n, 7, 120}] (* Michael De Vlieger, Mar 10 2016, Version 10 *)
PROG
(PARI) a(n) = if ((n<7) && (n!=3), 0, my(b=4); while(!vecsearch(Set(digits(n, b)), 3), b++); b); \\ Michel Marcus, Mar 10 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Nathan Fox, Mar 08 2016
STATUS
approved