|
| |
|
|
A088200
|
|
Members of the difference sequence (A088197) of LQnR(p_n) (A088196) where it is <= 0.
|
|
8
| |
|
|
-2, -2, -4, -2, -2, -4, -2, -4, -2, 0, -4, -4, -4, -2, -4, -2, -2, -10, -2, -4, 0, -4, -4, -8, -10, -2, -4, 0, -4, -2, -4, -4, -4, -2, -4, 0, -4, -6, -4, 0, -8, -4, -2, -2, 0, -4, -4, -4, -10, -2, -14, -2, 0, 0, -6, -4, -4, 0, -10, -2, 0, -4, -10, -4, -2, 0, -4, -2, -2, -6, -2, -4, 0, -2, -4, -4, -10, -8, -2, 0, 0, -8, -4, -8, -4, 0, -2
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| The members of the sequence are always even (conjectured!)
|
|
|
PROG
| (PARI) qnrp_d_nm(n)= {/* The difference sequence of LQnR where the sequence of the largest QnR modulo the primes is non monotonic */ local(k=1, m, p, fl, jj, j, v=[]); for(i=2, n, m=0; p=prime(i); jj=0; fl=2^p-1; j=2; while((j<=(p-1)/2), jj=(j^2)%p; fl-=2^jj; j++); j=p-1; while(m==0, if(bitand(2^j, fl), m=j); j--); if(m-k<=0, v=concat(v, m-k)); k=m); print(v)}
|
|
|
CROSSREFS
| Cf. A088194, A088196, A088197, A088198, A088199, A088201.
Sequence in context: A057000 A182982 A090047 * A073103 A069177 A077659
Adjacent sequences: A088197 A088198 A088199 * A088201 A088202 A088203
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Ferenc Adorjan (fadorjan(AT)freemail.hu), Sep 23 2003
|
| |
|
|
