A335401 a(n) is the smallest positive number such that the decimal digits of n*a(n) are all 0, 1, 2 or 3.
1, 1, 1, 3, 2, 2, 3, 4, 37, 1, 1, 1, 1, 8, 2, 2, 6, 74, 7, 1, 1, 1, 1, 5, 4, 5, 49, 4, 7, 1, 1, 1, 1, 3, 6, 37, 3, 29, 8, 3, 3, 5, 7, 3, 74, 5, 26, 25, 27, 2, 2, 6, 4, 43, 2, 2, 23, 4, 17, 2, 2, 5, 21, 5, 2, 2, 3, 15, 19, 3, 3, 31, 14, 3, 4, 132, 3, 4, 27, 4, 41
Offset: 1
Examples
a(9)= 37 because 9*37=333 is the smallest multiple of 9 whose decimal digits are all 0, 1, 2 or 3.
Crossrefs
Programs
-
Mathematica
a[n_] := Block[{k = 1}, While[Max@ IntegerDigits[k n] > 3, k++]; k]; Array[a, 81] (* Giovanni Resta, Jun 06 2020 *)
-
PARI
a(n) = my(k=1); while(vecmax(digits(k*n))>3, k++); k; \\ Michel Marcus, Jun 08 2020
Formula
a(n) = A334914(n)/n.
Extensions
More terms from Giovanni Resta, Jun 06 2020
Comments