[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A092522
a(n) = p modulo prime(n+1), where p is the least prime greater than 4 and not congruent to any previous a(k) modulo prime(k+1).
0
2, 2, 6, 8, 5, 9, 4, 4, 21, 10, 15, 29, 27, 41, 29, 35, 8, 63, 18, 14, 14, 48, 78, 56, 66, 1, 31, 37, 31, 104, 96, 1, 85, 97, 12, 151, 151, 151, 133, 139, 163, 145, 145, 139, 187, 54, 211, 217, 18, 32, 26, 36, 235, 217, 211, 259, 54, 72, 86, 108, 128, 72, 74, 78, 92, 222, 192
OFFSET
1,1
PROG
(PARI) { p=vector(1000, i, prime(i+1)); p[1]=0; cp=3; while (cp<500, i=1; while (p[i]==0, i++); x=p[i]%cp; print1(", "x); for (j=1, 1000, if (p[j]%cp==x, p[j]=0)); cp=nextprime(cp+1)) }
CROSSREFS
Sequence in context: A134457 A326479 A306688 * A116542 A231131 A142243
KEYWORD
nonn
AUTHOR
Jon Perry, Apr 06 2004
EXTENSIONS
Edited by Don Reble, Nov 07 2005
STATUS
approved