[seqfan] Re: Generally known (to those who know of such things)
wouter meeussen
wouter.meeussen at pandora.be
Sat Nov 21 14:43:49 CET 2009
my Apologies,
cutting (and pasting) corners,
should have known better!
If anything, I should have said:
A165186 (p1)=Sum(k=1..p1; mod( k (p1-k) , p1) ) seems to be strictly
increasing in function of p1, while
A165186 (p3)=Sum(k=1..p3; mod( k (p3-k) , p3) ) is not (in function of
p3).
(* why? *)
with again p1 and p3 the primes congruent to 1 resp. 3 mod 4.
in other words,
A165186 (p1) seems to be strictly increasing in function of p1, while
A165186 (p3) is not (in function of p3).
with, of course,
A165186(n) = Sum(k=1..n; mod(k*(n-k) ,n) )
(a sequence originating from my earlier mail here
Sent: Sunday, September 06, 2009 4:08 PM
Subject: [seqfan] Trivium.)
and Sum(k=1..n; mod(k*(n-k) ,n) ) = Sum(k=1..n-1; n-mod(k^2 ,n) )
Mma code:
----------------------------------------------------
Table[p=Prime[n];
If[Mod[p,4]===1,Sum[Mod[k(p-k),p],{k,p}],z],{n,1000}]/.z->Sequence[];
Flatten[Position[Rest[%]-Drop[%,-1],_?Negative]]=={}
----------------------------------------------------
Wouter.
----- Original Message -----
From: "Meeussen Wouter (bkarnd)" <wouter.meeussen at vandemoortele.com>
To: "Sequence Fanatics Discussion list" <seqfan at list.seqfan.eu>
Sent: Friday, November 20, 2009 5:39 PM
Subject: [seqfan] Generally known (to those who know of such things)
More information about the SeqFan
mailing list