The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A270711

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

A270711

Half of increasing gaps between primes.
(history; published version)

#17 by N. J. A. Sloane at Sat Oct 30 13:43:36 EDT 2021

STATUS

proposed

approved

#16 by Hugo Pfoertner at Sat Oct 30 12:03:17 EDT 2021

STATUS

editing

proposed

#15 by Hugo Pfoertner at Sat Oct 30 11:56:54 EDT 2021

EXTENSIONS

a(55)-a(7980) using b-file of A005250 by Hugo Pfoertner, Oct 30 2021

Discussion

Sat Oct 30

12:03

Hugo Pfoertner: As an exception, it seems to me that an extended length of the data field can be used sensibly, because all currently known terms can be displayed with it. This also makes them accessible for a search.

#14 by Hugo Pfoertner at Sat Oct 30 11:53:35 EDT 2021

DATA

1, 2, 3, 4, 7, 9, 10, 11, 17, 18, 22, 26, 36, 43, 48, 56, 57, 59, 66, 74, 77, 90, 105, 110, 111, 117, 124, 125, 141, 144, 146, 160, 168, 177, 191, 192, 197, 228, 232, 234, 237, 243, 245, 250, 257, 258, 266, 267, 270, 291, 294, 301, 326, 337, 358, 383, 389, 402, 403, 453, 458, 462, 566, 592, 599, 610, 612, 624, 636, 664, 678, 685, 721, 738, 744, 755, 763, 765, 775

KEYWORD

nonn,easy

nonn

EXTENSIONS

a(55)-a(79) using b-file of A005250 by Hugo Pfoertner, Oct 30 2021

STATUS

approved

editing

#13 by N. J. A. Sloane at Sat Apr 09 14:19:46 EDT 2016

STATUS

editing

approved

#12 by N. J. A. Sloane at Sat Apr 09 14:19:33 EDT 2016

COMMENTS

The primes of the in this sequence are 2, 3, 7, 11, 17, 43, 59, 191, 197, 257, ...

The squares of the sequence are 1, 4, 9, 36, 144,...

STATUS

proposed

editing

Discussion

Sat Apr 09

14:19

N. J. A. Sloane: grammatical corrections

#11 by Michel Lagneau at Tue Apr 05 14:34:46 EDT 2016

STATUS

editing

proposed

Discussion

Tue Apr 05

14:35

Michel Lagneau: Right! Robert. MMA corrected.

#10 by Michel Lagneau at Tue Apr 05 14:34:35 EDT 2016

MATHEMATICA

halfIncrPrimeGaps = {}; max = 10^7; Module[{d = Differences[Prime[Range[max]]], ls = {2}}, Table[If[d[[n]] > Last[ls], AppendTo[ls, d[[n]]]], {n, max - 1}]; ls/2]

#9 by Robert Price at Tue Apr 05 14:17:51 EDT 2016

STATUS

proposed

editing

#8 by Michel Marcus at Thu Mar 31 17:21:55 EDT 2016

STATUS

editing

proposed

Discussion

Tue Apr 05

14:17

Robert Price: "halfIncrPrimeGaps = {};"
 in MMA program not needed.