[seqfan] Re: 2 seqs with diffs distinct

[wouter meeussen]

aber lieber Alois,
      a[[9]]-b[[7]]  or 127-105=  22 while
      a[[9]]-b[[8]]  or 127-149= -22

I prefer:
{0, 1, 7, 18, 35, 59, 88, 125, 178, 233, 285, 344, 428, 516, 623, 705, 813,
951, 1086, 1225, 1386, 1528, 1759, 1960, 2160, 2381, 2584, 2808, 3042, 3260,
3563, 3844, 4182, 4471, 4846, 5392, 5553}
with
{0, 3, 12, 26, 45, 72, 105, 149, 199, 255, 316, 392, 467, 571, 663, 762,
876,
1017, 1167, 1322, 1468, 1638, 1867, 2051, 2313, 2481, 2767, 2924, 3134,
3406,
3682, 4014, 4278, 4745, 4973, 5459, 5848}

and my apologies for the dumbest program I've ever written:
aa={0};bb={0};w=0;Table[While[!UnsameQ@@(it=Flatten[Outer[Abs[#1-#2]&,Append
[aa,w],bb]]),w++];AppendTo[aa,w];While[!UnsameQ@@(it=Flatten[Outer[Abs[#1-#2
]&,Append[bb,w],aa]]),w++];AppendTo[bb,w];{n,w},{n,36}],{aa,bb}

Wouter.

----- Original Message ----- 
From: "Alois Heinz" <heinz at hs-heilbronn.de>
To: "Sequence Fanatics Discussion list" <seqfan at list.seqfan.eu>
Cc: <seqfan at seqfan.eu>; <njas at research.att.com>
Sent: Saturday, March 27, 2010 6:20 PM
Subject: [seqfan] Re: 2 seqs with diffs distinct


>
> A = 0, 1, 7, 18, 35, 59, 88, 125, 127, 189, 257, 327, 388, 480, 550,
> 558, 774, 812, 850, 1123, 1176, 1274, 1546, 1617, 1797, 1801, 2247,
> 2466, 2546, 2946, 3181, 3695, 3766, 4073, 4631, 4771, 5400, 5814, 5914,
> 6428, 6840, 7127, 7937, 8038, 8637, 8791, 9739, 10035, 10910, 10944,
> 11309, 13010, 13481, 14102, 14602, 14639, 16261, 16774, 17466, 17565,
> 18577, 19175, 21018, 21709, 22502, 22994, 24231, 25519, 25600, 25822,
> 26245, 28408, 30404, 30810, 31939, 32233, 34293, 35434, 37543, 38775
>
> B = 0, 3, 12, 26, 45, 72, 105, 149, 161, 218, 278, 357, 430, 439, 616,
> 636, 679, 705, 984, 1007, 1338, 1411, 1471, 1749, 1864, 2067, 2082,
> 2687, 2762, 3113, 3430, 3514, 3992, 4261, 4407, 5162, 5594, 6118, 6172,
> 6734, 6766, 7494, 7596, 8212, 9099, 9332, 9510, 10288, 10642, 11712,
> 12574, 12734, 13765, 14366, 15131, 15739, 16021, 16624, 17020, 18500,
> 20148, 20345, 21227, 21788, 23545, 23821, 24754, 24843, 26910, 27321,
> 28762, 29074, 30004, 31640, 32753, 33921, 34974, 36155, 38415, 39501
>