The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A051335

Euclid-Mullin sequence (A000945) with initial value a(1)=127 instead of a(1)=2.
(history; published version)

#16 by Michel Marcus at Tue Aug 18 07:59:51 EDT 2015

STATUS

reviewed

approved

#15 by Joerg Arndt at Tue Aug 18 07:52:32 EDT 2015

STATUS

proposed

reviewed

#14 by Anders Hellström at Tue Aug 18 07:33:44 EDT 2015

STATUS

editing

proposed

#13 by Anders Hellström at Tue Aug 18 07:33:35 EDT 2015

PROG

(PARI) spf(n)=my(f=factor(n)[1, 1]); f;

first(m)={my(v=vector(m)); v[1]=127; for(i=2, m, v[i]=spf(1+prod(j=1, i-1, v[j]))); v; } /* Anders Hellström, Aug 18 2015 */

STATUS

approved

editing

#12 by Alois P. Heinz at Mon Jul 20 16:40:16 EDT 2015

STATUS

proposed

approved

#11 by Robert Price at Mon Jul 20 15:25:27 EDT 2015

STATUS

editing

proposed

#10 by Robert Price at Mon Jul 20 15:25:24 EDT 2015

LINKS

Robert Price, <a href="/A051335/b051335.txt">Table of n, a(n) for n = 1..47</a>

STATUS

approved

editing

#9 by N. J. A. Sloane at Tue Oct 15 22:30:30 EDT 2013

AUTHOR

Labos E. (labos(AT)ana.sote.hu)

Labos Elemer

Discussion

Tue Oct 15

22:30

OEIS Server: https://oeis.org/edit/global/2029

#8 by T. D. Noe at Sat Apr 16 14:37:58 EDT 2011

STATUS

proposed

approved

#7 by T. D. Noe at Sat Apr 16 14:37:53 EDT 2011

MATHEMATICA

a[ n_+1 ] =127; a[n_] := First[ Flatten[ FactorInteger[ 1+Product[ a[ j ], {j, 1, n-1} ] ] ] ]; Array[a, 10]

STATUS

approved

proposed