A034900 a(n) is square mod a(i), i < n; a(n) prime; a(1) = 2.

2, 3, 7, 37, 67, 127, 211, 1999, 3823, 5623, 5779, 12163, 17683, 41227, 180667, 186727, 1901209, 5176711, 5830819, 10593997, 36065149, 66423067, 89635303, 117961621, 121703311, 225511939, 410967463

Offset

1,1

Links

Table of n, a(n) for n=1..27.

Prog

(PARI) isok(newp, v, n) = {for (k=1, n, if (!issquare(Mod(newp, v[k])), return (0)); ); return (1); }
lista(nn) = {my(v=vector(nn), lastp=2); v[1] = lastp; for (n=2, nn, my(newp = nextprime(lastp+1)); while (! isok(newp, v, n-1), newp = nextprime(newp+1)); v[n] = newp; lastp = newp; ); v; } \\ Michel Marcus, Sep 24 2020

Crossrefs

Cf. A034901, A034902.

Sequence in context: A165744 A330554 A304524 * A079388 A183605 A000317

Adjacent sequences: A034897 A034898 A034899 * A034901 A034902 A034903

Keyword

nonn,more

Author

David W. Wilson

Extensions

Name edited by Michel Marcus, Sep 24 2020

Status

approved