STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
Numbers n k such that n k divides the (left) concatenation of all numbers <= n k written in base 10 (most significant digit on right).
approved
editing
proposed
approved
editing
proposed
No more terms < 10^7. [- _Lars Blomberg, _, Sep 12 2011]
(PARI) lista(nn, m=10) = my(c, s, t); for(k=1, nn, t+=m^c*s=fromdigits(Vecrev(digits(k, m)), m); c+=logint(s, m)+1; if(t%k==0, print1(k, ", "))); \\ Jinyuan Wang, Dec 05 2020
approved
editing
proposed
approved
editing
proposed
b = 10; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[IntegerDigits[IntegerReverse[#, b], b], c], b], #] &] (* Robert Price, Mar 13 2020 *)
nonn,base,more
approved
editing