|
| |
|
|
A129476
|
|
Least k such that each single-digit (base 10) divisor of the n appears in the decimal expansion of k.
|
|
1
| |
|
|
1, 12, 13, 124, 15, 1236, 17, 1248, 139, 125, 1, 12346, 1, 127, 135, 1248, 1, 12369, 1, 1245, 137, 12, 1, 123468
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Sequence has period 2520 = 2^3 * 3^2 * 5 * 7.
|
|
|
FORMULA
| Let n be the rank and result be the number for this rank let a1...ak be k digits (a1...ak in [0,9]) result=a1*10^(k-1)...ak*10^0 with (i|n) => i in {a1...ak}
|
|
|
EXAMPLE
| a(10)=125 because 1, 2 and 5 divides 10. 10 also divides 10 but it's not a digit so it doesn't appear.
|
|
|
MAPLE
| # Should work in Maple 5 # In Maple 6, concatenation operator is not . (dot) anymore but || (two vertical bars) for n from 1 to 20 do for i from 1 to 9 do if irem(n, i)=0 then result:=result.i; fi od; print (n, " -> ", result); od;
|
|
|
CROSSREFS
| Cf. A037278.
Sequence in context: A058950 A064003 A135123 * A037278 A164852 A033048
Adjacent sequences: A129473 A129474 A129475 * A129477 A129478 A129479
|
|
|
KEYWORD
| easy,nonn,base
|
|
|
AUTHOR
| Colin Pitrat (colin.pitrat(AT)rez-gif.supelec.fr), May 29 2007
|
|
|
EXTENSIONS
| Editing and comment by Charles R Greathouse IV (charles.greathouse(AT)case.edu), Nov 02 2009
|
| |
|
|
