The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A239867

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

A239867

Where records occur in A239866.
(history; published version)

#13 by Michel Marcus at Sun Mar 31 03:43:09 EDT 2019

STATUS

reviewed

approved

#12 by Joerg Arndt at Sun Mar 31 03:33:42 EDT 2019

STATUS

proposed

reviewed

#11 by Amiram Eldar at Sun Mar 31 03:32:55 EDT 2019

STATUS

editing

proposed

#10 by Amiram Eldar at Sun Mar 31 03:30:47 EDT 2019

DATA

1, 9, 91, 205, 362, 519, 634, 1202, 3075, 11620, 19197, 32786, 67401, 67947, 473326, 587793, 1215895, 1361552, 1998403, 2532886, 3039732, 5138070, 7058483, 9465973, 20128072, 76214152

COMMENTS

The record values are 17, 40, 44, 58, 62, 68, 72, 106, 138, 144, 146, 190, 238, 240, 248, 258, 264, 290, 292, 340, 346, 348, 358, 378, 448, 452, ... - Amiram Eldar, Mar 31 2019

MATHEMATICA

a[n_] := Module[{s = -1, k = 0, p = Prime[n]}, While[!PrimeQ[s], s += p; p = NextPrime[p]; k++]; k]; am = 0; s={}; Do[a1 = a[n]; If[a1 > am, am = a1; AppendTo[s, n]], {n, 1, 70000}]; s (* Amiram Eldar, Mar 31 2019 *)

EXTENSIONS

a(12)-a(26) from Amiram Eldar, Mar 31 2019

STATUS

approved

editing

#9 by Bruno Berselli at Fri Mar 28 12:20:56 EDT 2014

STATUS

proposed

approved

#8 by Paolo P. Lava at Fri Mar 28 08:54:11 EDT 2014

STATUS

editing

proposed

#7 by Paolo P. Lava at Fri Mar 28 08:53:51 EDT 2014

CROSSREFS

Cf. a000040, A000040, A239864, A239865, A239866.

Discussion

Fri Mar 28

08:54

Paolo P. Lava: "Typo", of course

#6 by Michel Marcus at Fri Mar 28 08:46:10 EDT 2014

CROSSREFS

Cf. a000040, A239864-, A239865, A239866.

STATUS

proposed

editing

Discussion

Fri Mar 28

08:46

Michel Marcus: a000040 ? did on purpose or typo ?

#5 by Paolo P. Lava at Fri Mar 28 08:41:13 EDT 2014

STATUS

editing

proposed

#4 by Paolo P. Lava at Fri Mar 28 08:41:09 EDT 2014

MAPLE

if a>t then t:=a; lprintprint(n, a); fi; od; end: P(10^6);

STATUS

proposed

editing