Search: id:A019566
Results 1-1 of 1 results found.

%I A019566
%S A019566 0,9,198,3087,41976,530865,6419754,75308643,864197532,1358024589,123580236690,
%T A019566 2345801446791,775432077543108,178553219976533007,27956332009875522906,
%U A019566 3805734210999774512805,481583522109989673502704,58259362312008979572492603
%V A019566 0,9,198,3087,41976,530865,6419754,75308643,864197532,-1358024589,-123580236690,
%W A019566 -2345801446791,775432077543108,178553219976533007,27956332009875522906,
%X A019566 3805734210999774512805,481583522109989673502704,58259362312008979572492603
%N A019566 Unique numbers: 1-1, 21-12, 321-123, ..., 10987654321-12345678910, 1110987654321-1234567891011, 
               etc.
%D A019566 S. S. Gupta, Unique Numbers, Science Today, Jan 01 1988, India.
%H A019566 Shyam Sunder Gupta, <a href="http://www.shyamsundergupta.com/unique.htm">
               Unique Numbers</a>
%t A019566 f[n_] := Block[ {a = "", k = 1}, While[k < n + 1, a = StringJoin[ ToString[k], 
               a]; k++ ]; Return[ ToExpression[a] - ToExpression[ StringReverse[a]]]]; 
               Table[ f[n], {n, 1, 17} ]
%o A019566 (PARI) A = vector(25); c = 1; f = 1; for (i = 2, 9, c = 10*c + i; f = 
               f + i*10^(i - 1); A[i] = (f - c)); for (i = 10, 25, c = 100*c + i; 
               f = f + i*10^(2*i - 11);; A[i] = (f - c)); A (Wasserman)
%Y A019566 A019566(n) = A000422(n)-A007908(n).
%Y A019566 Sequence in context: A081020 A017426 A110807 this_sequence A157563 A003026 
               A157594
%Y A019566 Adjacent sequences: A019563 A019564 A019565 this_sequence A019567 A019568 
               A019569
%K A019566 sign,base
%O A019566 1,2
%A A019566 Robert M. Dickau (robertd(AT)wolfram.com)
%E A019566 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 11 2002
%E A019566 More terms from David Wasserman (wasserma(AT)spawar.navy.mil), Nov 09 
               2004

Search completed in 0.001 seconds