OFFSET
1,1
COMMENTS
Numbers k for which A257679(k) = 2.
LINKS
EXAMPLE
Factorial base representation (A007623) of 22 is "320" as 22 = 3*3! + 2*2! + 0*1!, thus a(22) = 2.
MATHEMATICA
q[n_] := Module[{k = n, m = 2, r, s = {}}, While[{k, r} = QuotientRemainder[k, m]; k != 0|| r != 0, AppendTo[s, r]; m++]; !MemberQ[s, 1] && MemberQ[s, 2]]; Select[Range[500], q] (* Amiram Eldar, Feb 14 2024 *)
PROG
(Scheme, with Antti Karttunen's IntSeq-library)
(Python)
def A(n, p=2): return n if n<p else A(n//p, p+1)*10 + n%p
def a(n): return 0 if n==0 else min([int(i) for i in str(A(n)) if i !='0'])
print([n for n in range(1, 503) if a(n)==2]) # Indranil Ghosh, Jun 19 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, May 04 2015
STATUS
approved