

A129476


Least k such that each singledigit (base 10) divisor of the n appears in the decimal expansion of k.


0



1, 12, 13, 124, 15, 1236, 17, 1248, 139, 125, 1, 12346, 1, 127, 135, 1248, 1, 12369, 1, 1245, 137, 12, 1, 123468, 15, 12, 139, 1247, 1, 12356, 1, 1248, 13, 12, 157, 123469, 1, 12, 13, 12458, 1, 12367, 1, 124, 1359, 12, 1, 123468, 17, 125
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

Sequence has period 2520 = 2^3 * 3^2 * 5 * 7.


LINKS

Table of n, a(n) for n=1..50.


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^(k1)...ak*10^0 with (in) => 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;


MATHEMATICA

Table[FromDigits[Select[Divisors[n], #<10&]], {n, 50}] (* Harvey P. Dale, Jun 07 2015 *)


CROSSREFS

Cf. A037278.
Sequence in context: A058950 A064003 A135123 * A243361 A037278 A164852
Adjacent sequences: A129473 A129474 A129475 * A129477 A129478 A129479


KEYWORD

easy,nonn,base


AUTHOR

Colin Pitrat (colin.pitrat(AT)rezgif.supelec.fr), May 29 2007


EXTENSIONS

Editing and comment by Charles R Greathouse IV, Nov 02 2009
More terms from Harvey P. Dale, Jun 07 2015


STATUS

approved



