|
Search: id:A019566
|
|
|
| A019566 |
|
Unique numbers: 1-1, 21-12, 321-123, ..., 10987654321-12345678910, 1110987654321-1234567891011, etc. |
|
+0
2
|
|
| 0, 9, 198, 3087, 41976, 530865, 6419754, 75308643, 864197532, -1358024589, -123580236690, -2345801446791, 775432077543108, 178553219976533007, 27956332009875522906, 3805734210999774512805, 481583522109989673502704, 58259362312008979572492603
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
REFERENCES
|
S. S. Gupta, Unique Numbers, Science Today, Jan 01 1988, India.
|
|
LINKS
|
Shyam Sunder Gupta, Unique Numbers
|
|
MATHEMATICA
|
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} ]
|
|
PROGRAM
|
(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)
|
|
CROSSREFS
|
A019566(n) = A000422(n)-A007908(n).
Sequence in context: A081020 A017426 A110807 this_sequence A157563 A003026 A157594
Adjacent sequences: A019563 A019564 A019565 this_sequence A019567 A019568 A019569
|
|
KEYWORD
|
sign,base
|
|
AUTHOR
|
Robert M. Dickau (robertd(AT)wolfram.com)
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 11 2002
More terms from David Wasserman (wasserma(AT)spawar.navy.mil), Nov 09 2004
|
|
|
Search completed in 0.002 seconds
|
