The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A084342

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A084342

Digit reversal of n concatenated with n mod n.
(history; published version)

#11 by N. J. A. Sloane at Thu Dec 05 19:56:16 EST 2013

AUTHOR

_Amarnath Murthy (amarnath_murthy(AT)yahoo.com), _, May 27 2003

Discussion

Thu Dec 05

19:56

OEIS Server: https://oeis.org/edit/global/2075

#10 by Alois P. Heinz at Fri Aug 02 11:16:15 EDT 2013

STATUS

editing

approved

#9 by Alois P. Heinz at Fri Aug 02 11:16:09 EDT 2013

MATHEMATICA

Table[Mod[FromDigits[Join[Reverse[IntegerDigits[n]], IntegerDigits[n]]], n], {n, 75}] (* _Harvey P. Dale_, Nov. 26, 2010 *)

EXTENSIONS

Corrected, additional terms provided, and Mathematica program provided by _Harvey P. Dale, _, Nov. 26, 2010

STATUS

proposed

editing

#8 by Vincenzo Librandi at Fri Aug 02 08:48:13 EDT 2013

STATUS

editing

proposed

#7 by Vincenzo Librandi at Fri Aug 02 08:48:06 EDT 2013

LINKS

Vincenzo Librandi, <a href="/A084342/b084342.txt">Table of n, a(n) for n = 1..10000</a>

STATUS

approved

editing

#6 by Max Alekseyev at Wed Jun 15 16:55:46 EDT 2011

STATUS

proposed

approved

#5 by Max Alekseyev at Wed Jun 15 16:55:34 EDT 2011

DATA

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 12, 0, 4, 11, 0, 18, 0, 3, 0, 3, 0, 0, 12, 18, 24, 7, 0, 29, 28, 0, 16, 15, 0, 11, 16, 18, 0, 6, 6, 3, 0, 0, 6, 21, 0, 41, 0, 21, 4, 2, 18, 0, 4, 33, 32, 1, 0, 14, 58, 9, 56, 10, 0, 29, 32, 9, 0, 67, 36, 50, 38, 0, 12, 0, 42, 62, 0, 18, 12, 65, 12, 20, 6, 57, 0, 10, 0, 80, 48, 87, 12, 10, 84, 43, 80, 0, 0

KEYWORD

base,more,nonn

STATUS

approved

proposed

#4 by D. S. McNeil at Sat Nov 27 03:47:22 EST 2010

STATUS

reviewed

approved

#3 by D. S. McNeil at Sat Nov 27 03:47:17 EST 2010

STATUS

proposed

reviewed

#2 by Harvey P. Dale at Fri Nov 26 19:11:48 EST 2010

DATA

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, 12, 0, 0, 4, 11, 0, 18, 0, 3, 0, 3, 0, 0, 12, 18, 24, 7, 0, 29, 28, 0, 16, 15, 0, 11, 16, 18, 0, 6, 6, 3, 0, 0, 6, 21, 0, 41, 0, 21, 4, 2, 18, 0, 4, 33, 32, 1, 0, 14, 58, 9, 56, 10, 0, 29, 32, 9, 0, 67, 36, 50, 38, 0

MATHEMATICA

Table[Mod[FromDigits[Join[Reverse[IntegerDigits[n]], IntegerDigits[n]]], n], {n, 75}]

EXTENSIONS

Corrected, additional terms provided, and Mathematica program provided by Harvey P. Dale, Nov. 26, 2010

STATUS

approved

proposed