|
Search: id:A129476
|
|
|
| A129476 |
|
Least k such that each single-digit (base 10) divisor of the n appears in the decimal expansion of k. |
|
+0
2
|
|
| 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; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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 this_sequence A037278 A164852 A033048
Adjacent sequences: A129473 A129474 A129475 this_sequence A129477 A129478 A129479
|
|
KEYWORD
|
easy,nonn,base,new
|
|
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
|
|
|
Search completed in 0.005 seconds
|
