|
|
A034900
|
|
a(n) is square mod a(i), i < n; a(n) prime; a(1) = 2.
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|