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

 

Logo

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.

License Agreements, Terms of Use, Privacy Policy. .

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