The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A241660

Indices of primes in A001630.
(history; published version)

#15 by Bruno Berselli at Thu Sep 11 08:49:42 EDT 2014

STATUS

reviewed

approved

#14 by Joerg Arndt at Thu Sep 11 08:39:52 EDT 2014

STATUS

proposed

reviewed

#13 by Robert Price at Wed Sep 10 17:35:48 EDT 2014

STATUS

editing

proposed

Discussion

Wed Sep 10

20:26

Robert Price: Is this a case where the offset should be zero?

Thu Sep 11

08:39

Joerg Arndt: Offset should be 1, as this is a list.

#12 by Robert Price at Wed Sep 10 17:35:41 EDT 2014

COMMENTS

a(1415) > 2*10^5.

#11 by Robert Price at Wed Sep 10 17:35:13 EDT 2014

DATA

3, 4, 7, 19, 62, 94, 722, 5197, 5262, 6182, 14007, 21579, 35354, 75592

EXTENSIONS

Prepended a(1)=3 and Mathematica program corrected by Robert Price, Sep 09 2014

#10 by Robert Price at Wed Sep 10 17:34:34 EDT 2014

MATHEMATICA

a={0, 0, 1, 2}; Print[3]; For[n=4, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[n]]; a=RotateLeft[a]; a[[4]]=sum]

STATUS

proposed

editing

#9 by Robert Price at Tue Sep 09 21:28:27 EDT 2014

STATUS

editing

proposed

#8 by Robert Price at Tue Sep 09 21:28:13 EDT 2014

MATHEMATICA

a={0, 0, 1, 2}; Print[1]; Print[2]; For[n=4, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[n]]; a=RotateLeft[a]; a[[4]]=sum]

EXTENSIONS

Mathematica program corrected by Robert Price, Sep 09 2014

STATUS

approved

editing

#7 by Ralf Stephan at Sat May 10 12:06:34 EDT 2014

STATUS

proposed

approved

#6 by Joerg Arndt at Mon Apr 28 02:20:39 EDT 2014

STATUS

editing

proposed