The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A364696

Nonnegative integers k such that the sum of the first k primes is a pentagonal number.
(history; published version)

#18 by Amiram Eldar at Sat Oct 07 07:01:26 EDT 2023

STATUS

reviewed

approved

#17 by Michel Marcus at Sat Oct 07 02:13:19 EDT 2023

STATUS

proposed

reviewed

#16 by Paolo Xausa at Fri Oct 06 15:16:03 EDT 2023

STATUS

editing

proposed

#15 by Paolo Xausa at Fri Oct 06 14:39:59 EDT 2023

MATHEMATICA

A364696list[kmax_]:=Module[{p=0}, Join[{0}, Flatten[PositionTable[MapIf[IntegerQ[(Sqrt[24#+1](p+1)/6]&, Accumulate[=Prime[Range[k])+1]+1)/6], k, Nothing], {k, kmax]]]], True}]]]; A364696list[7725000] (* _Paolo Xausa_, Oct 06 2023 *)

CROSSREFS

Cf. A000326, A007504, A033997, A175133, A364691, A364695, A366270.

STATUS

approved

editing

#14 by N. J. A. Sloane at Sat Aug 05 21:23:30 EDT 2023

STATUS

proposed

approved

#13 by Hugo Pfoertner at Fri Aug 04 06:49:11 EDT 2023

STATUS

editing

proposed

Discussion

Fri Aug 04

09:06

Paolo Xausa: Thanks Michel and Hugo for new terms.

#12 by Hugo Pfoertner at Fri Aug 04 06:48:48 EDT 2023

DATA

0, 2, 77, 24587, 48070640, 471412484, 7471587112

EXTENSIONS

a(6)-a(7) from Hugo Pfoertner, Aug 04 2023

STATUS

proposed

editing

#11 by Michel Marcus at Fri Aug 04 01:13:21 EDT 2023

STATUS

editing

proposed

#10 by Michel Marcus at Fri Aug 04 01:13:15 EDT 2023

DATA

0, 2, 77, 24587, 48070640

EXTENSIONS

a(5) from Michel Marcus, Aug 04 2023

STATUS

proposed

editing

#9 by Paolo Xausa at Thu Aug 03 04:12:34 EDT 2023

STATUS

editing

proposed