This site is supported by donations to The OEIS Foundation.

 Please make a donation to keep the OEIS running. We are now in our 55th year. In the past year we added 12000 new sequences and reached 8000 citations (which often say "discovered thanks to the OEIS"). We need to raise money to hire someone to manage submissions, which would reduce the load on our editors and speed up editing. Other ways to donate

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A115922 Numbers n such that n and 2*n, taken together are pandigital. 6
 13485, 13548, 13845, 14538, 14685, 14835, 14853, 14865, 15486, 16485, 18546, 18645, 20679, 20769, 20793, 23079, 26709, 26907, 27069, 27093, 27309, 29067, 29073, 29307, 30729, 30792, 30927, 31485, 32079, 32709, 32907, 34851, 35148, 35481, 38145, 38451 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Sequence contains 48 terms, the largest being 48651. If leading zeros are permitted, there are 12 additional terms: 6729, 6792, 6927, 7269, 7293, 7329, 7692, 7923, 7932, 9267, 9273, 9327. - Harvey P. Dale, Feb 09 2014 LINKS Nathaniel Johnston, Table of n, a(n) for n = 1..48 (full sequence) EXAMPLE 13485 and 26970=13485*2 together contain all the 10 digits once. MAPLE for n from 12345 to 49382 do d:=[op(convert(n, base, 10)), op(convert(2*n, base, 10))]: pandig:=true: for k from 0 to 9 do if(numboccur(k, d)<>1)then pandig:=false: break: fi: od: if(pandig)then print(n): fi: od: # Nathaniel Johnston, May 31 2011 MATHEMATICA onehalfQ[n_]:=FromDigits[Take[n, 5]]/FromDigits[Take[n, -5]]==1/2; FromDigits[ Take[#, 5]]&/@Select[Permutations[Range[0, 9]], onehalfQ] (* This program generates the full 60-term sequence, with leading zeros permitted, of which this sequence is a subset -- see Comments *) (* Harvey P. Dale, Feb 09 2014 *) PROG (PARI) {for(n=10234, 49876, #Set(digits(n))==5||next; #Set(digits(n*2))==5 && #Set(concat(digits(n), digits(n*2)))==10 && print1(n", "))} \\ M. F. Hasler, Feb 08 2014 CROSSREFS Cf. A050278, A054383, A115923, A115924, A115925, A114126, A115927. Sequence in context: A115925 A234493 A029557 * A248444 A257149 A257156 Adjacent sequences:  A115919 A115920 A115921 * A115923 A115924 A115925 KEYWORD nonn,base,fini,full AUTHOR Giovanni Resta, Feb 06 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
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified December 14 22:42 EST 2019. Contains 329987 sequences. (Running on oeis4.)