login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A124668 Numbers that together with their prime factors contain every digit exactly once. 1
10968, 28651, 43610, 48960, 50841, 65821, 80416, 90584 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

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

EXAMPLE

10968 = 2^3 * 3 * 457.

MAPLE

isA124668 := proc(n) local digs, digs2, f, fac, b ; digs := convert(n, base, 10) ; f := ifactors(n)[2] ; for fac from 1 to nops(f) do b := op(1, op(fac, f)) ; digs := [op(digs), op(convert(b, base, 10))] ; od ; digs2 := convert(digs, set) ; if nops(digs2) = 10 and nops(digs2)=nops(digs) then print(n, f) ; RETURN(true) ; else RETURN(false) ; fi ; end : A124668aux := proc(n, dleft) local i, nnxt, dnxt ; isA124668(n) : for i from 1 to nops(dleft) do nnxt := 10*n+op(i, dleft) ; dnxt := dleft minus {op(i, dleft)} ; if nops(dnxt) > 0 then A124668aux(nnxt, dnxt) ; fi ; od ; end : dleft := {0, 1, 2, 3, 4, 5, 6, 7, 8, 9} : for i from 1 to 9 do dnxt := dleft minus {i} ; A124668aux(i, dnxt) : od : # R. J. Mathar, Jan 13 2007

MATHEMATICA

Select[Range[2, 1000000], Sort[Join[IntegerDigits[ # ], Flatten[IntegerDigits[Transpose[FactorInteger[ # ]][[1]]]]]] == {0, 1, 2, 3, 4, 5, 6, 7, 8, 9} &]

CROSSREFS

Sequence in context: A205052 A251170 A035913 * A270148 A270115 A104323

Adjacent sequences:  A124665 A124666 A124667 * A124669 A124670 A124671

KEYWORD

base,fini,full,nonn

AUTHOR

Tanya Khovanova, Dec 23 2006

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified May 23 02:46 EDT 2017. Contains 286909 sequences.