login
A276596
Least k such that A276502(k) = n.
0
1, 10, 100, 1000, 10000, 101, 1000000, 1001
OFFSET
1,2
PROG
(PARI) A047726(n) = n=eval(Vec(Str(n))); (#n)!/prod(i=0, 9, sum(j=1, #n, n[j]==i)!);
A055642(n) = #Str(n);
A007953(n) = sumdigits(n);
A045876(n) = ((10^A055642(n)-1)/9)*(A047726(n)*A007953(n)/A055642(n));
A276502(n) = {my(k = 1); while (A045876(n*(10^k)) % A045876(n), k++); k; }
a(n) = {my(k = 1); while (A276502(k) != n, k++); k; }
CROSSREFS
Cf. A276502.
Sequence in context: A125904 A272502 A355894 * A190016 A115796 A136857
KEYWORD
nonn,base,more
AUTHOR
Altug Alkan, Sep 11 2016
STATUS
approved