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

 

Logo

Annual Appeal: Please make a donation to keep the OEIS running. In 2018 we replaced the server with a faster one, added 20000 new sequences, and reached 7000 citations (often saying "discovered thanks to the OEIS").
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A083827 Let x(n) = 123...n, y(n) = n...321; a(n) = y(n) concatenated with x(n) - x(n) concatenated with y(n). 1
0, 891, 197802, 30866913, 4197558024, 530864469135, 64197533580246, 7530864224691357, 864197531135802468, -135802458898641975411, -1235802366899876419763310, -2345801446790997654198553209, 77543207754310799224567922456892 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Table of n, a(n) for n=1..13.

EXAMPLE

x(3) = 123, y(3) = 321, a(3) = 321123-123321=197802.

MATHEMATICA

Module[{nn=20, x, y}, Table[x=Range[n]; y=Reverse[x]; FromDigits[Join[ Flatten[ IntegerDigits/@y], Flatten[IntegerDigits/@x]]]-FromDigits[ Join[ Flatten[ IntegerDigits/@x], Flatten[IntegerDigits/@y]]], {n, nn}]] (* Harvey P. Dale, Aug 02 2012 *)

PROG

(PARI) { for(n=1, 20, if(n==1, x=1; y=1; l=1; ln=1; ln=length(Str(n)); x=x*10^ln+n; y=n*10^l+y; l=l+ln; ); print((y*10^l + x) - (x*10^l + y)); ); }

CROSSREFS

Sequence in context: A125303 A087672 A284842 * A268876 A068752 A173349

Adjacent sequences:  A083824 A083825 A083826 * A083828 A083829 A083830

KEYWORD

base,easy,sign

AUTHOR

Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 09 2003

EXTENSIONS

More terms from Ray Chandler, Jul 23 2003

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 15 03:52 EST 2018. Contains 318141 sequences. (Running on oeis4.)