[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Revision History for A095245 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing all changes.
(Concatenation of first n primes) modulo prime(n).
(history; published version)
#9 by Harvey P. Dale at Wed May 30 12:31:35 EDT 2018
STATUS

editing

approved

#8 by Harvey P. Dale at Wed May 30 12:31:31 EDT 2018
LINKS

Harvey P. Dale, <a href="/A095245/b095245.txt">Table of n, a(n) for n = 0..1000</a>

STATUS

approved

editing

#7 by Harvey P. Dale at Wed May 30 12:30:03 EDT 2018
STATUS

editing

approved

#6 by Harvey P. Dale at Wed May 30 12:29:59 EDT 2018
MATHEMATICA

Table[Mod[FromDigits[Flatten[IntegerDigits/@Prime[Range[n]]]], Prime[n]], {n, 60}] (* Harvey P. Dale, May 30 2018 *)

STATUS

approved

editing

#5 by N. J. A. Sloane at Thu Dec 05 19:56:52 EST 2013
AUTHOR

_Amarnath Murthy (amarnath_murthy(AT)yahoo.com), _, Jun 17 2004

Discussion
Thu Dec 05
19:56
OEIS Server: https://oeis.org/edit/global/2075
#4 by Russ Cox at Fri Mar 30 18:49:38 EDT 2012
EXTENSIONS

Edited, corrected and extended by _Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), _, Jun 26 2007

Discussion
Fri Mar 30
18:49
OEIS Server: https://oeis.org/edit/global/238
#3 by N. J. A. Sloane at Sat Nov 10 03:00:00 EST 2007
NAME

(Concatenation of first n primes mod () modulo prime(n)) = 0.

DATA

0, 2, 0, 5, 3, 7, 15, 16, 21, 27, 7, 11, 17, 21, 37, 7, 28, 10, 50, 70, 70, 23, 46, 20, 76, 93, 81, 52, 1, 58, 87, 54, 100, 128, 39, 10, 117, 16, 42, 89, 98, 61, 135, 123, 13, 89, 201, 147, 124, 176, 186, 202, 71, 74, 256, 228, 137, 84, 145

OFFSET

1,0,2

EXAMPLE

The concatenation of the first 3 primes is 235. The third prime is 5. Therefore a(3) = 235 mod 5 = 0.

MATHEMATICA

a = {2}; b = {0}; For[n = 2, n < 100, n++, a = Flatten[Join[a, IntegerDigits[ Prime[n]]] ]; AppendTo[b, Mod[FromDigits[a], Prime[n]]]]; b

CROSSREFS
KEYWORD

base,more,nonn,uned,newless

EXTENSIONS

Edited, corrected and extended by Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jun 26 2007

#2 by N. J. A. Sloane at Tue Jul 19 03:00:00 EDT 2005
KEYWORD

base,more,nonn,uned,new

EXTENSIONS

Warning: Many recent communications from this author have contained numerical errors or have been badly formatted. This entry has not been edited and may contain errors. It is included on a provisional basis in the hope that some reader will edit it. - njas

#1 by N. J. A. Sloane at Wed Sep 22 03:00:00 EDT 2004
NAME

Concatenation of first n primes mod (prime(n)) = 0.

DATA

0, 2, 0, 5, 3, 7, 15, 16, 21, 27

OFFSET

1,2

CROSSREFS
KEYWORD

base,more,nonn,uned

AUTHOR

Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jun 17 2004

EXTENSIONS

Warning: Many recent communications from this author have contained numerical errors or have been badly formatted. This entry has not been edited and may contain errors. It is included on a provisional basis in the hope that some reader will edit it. - njas

STATUS

approved